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 | 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 |  |