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
         (