Parent Directory
| 
Revision Log
| 
Revision Graph
* Sat Apr 5 2014 Ian Wells <esmith@wellsi.com> 2.4.0-14.sme - Untaint the license filename [SME: 8305] - Non-functional perl::Critic changes.
| 1 | wellsi | 1.1 | diff -ruN e-smith-lib-2.4.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm |
| 2 | --- e-smith-lib-2.4.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm 2014-04-05 08:49:49.000000000 -0700 | ||
| 3 | +++ e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm 2014-04-05 09:03:06.000000000 -0700 | ||
| 4 | @@ -17,7 +17,7 @@ | ||
| 5 | use esmith::DB; | ||
| 6 | use esmith::ConfigDB; | ||
| 7 | use Net::IPv4Addr qw(:all); | ||
| 8 | - | ||
| 9 | +use Taint::Util; | ||
| 10 | use File::Basename; | ||
| 11 | use File::stat; | ||
| 12 | use FileHandle; | ||
| 13 | @@ -1211,6 +1211,7 @@ | ||
| 14 | my @licenses; | ||
| 15 | foreach my $license ( readdir(DIR) ) | ||
| 16 | { | ||
| 17 | + untaint ($license); | ||
| 18 | my $file = "${dir}/${license}"; | ||
| 19 | next unless ( -f $file ); | ||
| 20 | push @licenses, $file; |
| admin@koozali.org | ViewVC Help |
| Powered by ViewVC 1.2.1 |  |