e-smith-base/sme8/e-smith-base-4.18.0-backupstatus.patch

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   2008-01-06 23:04:25.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2008-01-06 23:03:34.000000000 -0700
@@ -103,8 +103,7 @@
             exec qw(tar cf -), grep { -e $_ } @backup_list;
         }
         waitpid($tar, 0);
-        $status |= $?;
-        #warn "status from tar is $status\n" if $status;
+        warn "status from tar was $?\n" if $?;
         unless (close PV)
         {
             $status |= $! ? $! : $?;
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 2008-01-06 23:04:25.000000000 -0700
3	+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2008-01-06 23:03:34.000000000 -0700
4	@@ -103,8 +103,7 @@
5	exec qw(tar cf -), grep { -e $_ } @backup_list;
6	}
7	waitpid($tar, 0);
8	- $status \|= $?;
9	- #warn "status from tar is $status\n" if $status;
10	+ warn "status from tar was $?\n" if $?;
11	unless (close PV)
12	{
13	$status \|= $! ? $! : $?;