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
--- e-smith-lib-2.4.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm	2014-04-05 08:49:49.000000000 -0700
+++ e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm	2014-04-05 09:03:06.000000000 -0700
@@ -17,7 +17,7 @@
 use esmith::DB;
 use esmith::ConfigDB;
 use Net::IPv4Addr qw(:all);
-
+use Taint::Util;
 use File::Basename;
 use File::stat;
 use FileHandle;
@@ -1211,6 +1211,7 @@
     my @licenses;
     foreach my $license ( readdir(DIR) )
     {
+        untaint ($license);
         my $file = "${dir}/${license}";
         next unless ( -f $file );
         push @licenses, $file;