e-smith-base/sme7/e-smith-base-4.18.0-backuphome.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   2007-02-11 13:00:31.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-02-11 13:00:15.000000000 -0700
@@ -44,6 +44,7 @@
     my @backup_list = esmith::Backup->restore_list;
 
     $ENV{PATH} = "/bin:/usr/bin";
+    $ENV{HOME} = "/root";
 
     my ($rc, $choice) = $console->yesno_page
         (
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-02-11 13:00:31.000000000 -0700
3	+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-02-11 13:00:15.000000000 -0700
4	@@ -44,6 +44,7 @@
5	my @backup_list = esmith::Backup->restore_list;
6
7	$ENV{PATH} = "/bin:/usr/bin";
8	+ $ENV{HOME} = "/root";
9
10	my ($rc, $choice) = $console->yesno_page
11	(