e-smith-base/sme8/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	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-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			(