e-smith-base/sme7/e-smith-base-4.18.0-mediaglob.patch2

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])
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-23 08:38:14.000000000 -0700
3			+++ 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
4			@@ -71,7 +71,7 @@
5			{
6			next unless m:^(\S+)\s+(/media/\S+)\s+(\S+)\s+(\S+):;
7			my ($dev, $mount, $filesys, $options) = ($1, $2, $3, $4);
8			- push @dirs, $mount if ($options =~ /rw/);
9			+ push @dirs, $mount unless $mount =~ m{/floppy\|/cd\|/dvd};
10			}
11			close FSTAB;
12			unless ($dirs[0])
13			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
14			--- 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
15			+++ 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
16			@@ -42,7 +42,7 @@
17			{
18			next unless m:^(\S+)\s+(/media/\S+)\s+(\S+)\s+(\S+):;
19			my ($dev, $mount, $filesys, $options) = ($1, $2, $3, $4);
20			- push @dirs, $mount if ($options =~ /rw/);
21			+ push @dirs, $mount unless $mount =~ m{/floppy\|/cd\|/dvd};
22			}
23			close FSTAB;
24			unless ($dirs[0])