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-23 08:38:14.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm	2007-02-23 08:37:51.000000000 -0700
@@ -71,7 +71,7 @@
     {
         next unless m:^(\S+)\s+(/media/\S+)\s+(\S+)\s+(\S+):;
         my ($dev, $mount, $filesys, $options) = ($1, $2, $3, $4);
-        push @dirs, $mount if ($options =~ /rw/);
+        push @dirs, $mount unless $mount =~ m{/floppy|/cd|/dvd};
     }
     close FSTAB;
     unless ($dirs[0])
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm	2007-02-23 08:38:14.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm	2007-02-23 08:37:18.000000000 -0700
@@ -42,7 +42,7 @@
     {
         next unless m:^(\S+)\s+(/media/\S+)\s+(\S+)\s+(\S+):;
         my ($dev, $mount, $filesys, $options) = ($1, $2, $3, $4);
-        push @dirs, $mount if ($options =~ /rw/);
+        push @dirs, $mount unless $mount =~ m{/floppy|/cd|/dvd};
     }
     close FSTAB;
     unless ($dirs[0])