/[smeserver]/rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-templates.metadata.patch2
ViewVC logotype

Contents of /rpms/e-smith-lib/sme7/e-smith-lib-1.18.0-templates.metadata.patch2

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Tue Oct 7 18:41:09 2008 UTC (16 years ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
New streams

1 diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/templates.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/templates.pm
2 --- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/templates.pm 2007-03-19 11:24:00.000000000 -0400
3 +++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/templates.pm 2007-03-19 11:23:44.000000000 -0400
4 @@ -363,8 +363,10 @@
5 {
6 while ($_ = $d->read)
7 {
8 - /(\w+)/ or next; # skip . and ..
9 - my $file = $1;
10 + # skip any directories, including . and ..
11 + next if -d "$metadata_path/$_";
12 + # Untaint filename
13 + /(\w+)/; my $file = $1;
14 unless (open(FILE, "$metadata_path/$file"))
15 {
16 warn("Could not open metadata file $metadata_path/$file: $!");

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed