e-smith-lib/sme8/e-smith-lib-1.18.0-templates.metadata.patch2

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
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/templates.pm 2007-03-19 11:24:00.000000000 -0400
+++ 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
@@ -363,8 +363,10 @@
     {
         while ($_ = $d->read)
         {
-            /(\w+)/ or next;  # skip . and ..
-            my $file = $1;
+           # skip any directories, including . and ..
+            next if -d "$metadata_path/$_";
+           # Untaint filename
+            /(\w+)/; my $file = $1;
             unless (open(FILE, "$metadata_path/$file"))
             {
                 warn("Could not open metadata file $metadata_path/$file: $!");
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: $!");