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

Annotation 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 - (hide 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 slords 1.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