e-smith-base/sme7/e-smith-base-4.18.0-devicechk.patch2

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm   2007-07-04 11:12:51.000000000 -0400
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-07-04 11:11:42.000000000 -0400
@@ -151,7 +151,8 @@
         );
     return unless $rc == 0;
     sleep(3);
-    my @dirs = 0;
+    my @dirs;
+    @dirs = ();
     open(FSTAB, "</etc/fstab");
     while (<FSTAB>)
     {
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm  2007-07-04 11:12:51.000000000 -0400
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm        2007-07-04 11:11:04.000000000 -0400
@@ -42,7 +42,8 @@
         return;
     }
     sleep(3);
-    my @dirs = 0;
+    my @dirs;
+    @dirs = ();
     open(FSTAB, "</etc/fstab");
     while (<FSTAB>)
     {
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
2			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-07-04 11:12:51.000000000 -0400
3			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-07-04 11:11:42.000000000 -0400
4			@@ -151,7 +151,8 @@
5			);
6			return unless $rc == 0;
7			sleep(3);
8			- my @dirs = 0;
9			+ my @dirs;
10			+ @dirs = ();
11			open(FSTAB, "</etc/fstab");
12			while (<FSTAB>)
13			{
14			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm
15			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm 2007-07-04 11:12:51.000000000 -0400
16			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm 2007-07-04 11:11:04.000000000 -0400
17			@@ -42,7 +42,8 @@
18			return;
19			}
20			sleep(3);
21			- my @dirs = 0;
22			+ my @dirs;
23			+ @dirs = ();
24			open(FSTAB, "</etc/fstab");
25			while (<FSTAB>)
26			{