e-smith-base/sme7/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	bytegw	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 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 \|= $! ? $! : $?;