e-smith-base/sme8/e-smith-base-4.18.0-ethdriver.patch3

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm        2007-03-06 16:04:55.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm      2007-03-06 16:04:48.000000000 -0700
@@ -80,6 +80,7 @@
     my $default;
 
     my $existing_driver = $db->get_value($confEntry);
+    my $driver1 = $db->get_value("EthernetDriver1");
 
     foreach my $adapter ( @adapters )
     {
@@ -98,7 +99,7 @@
 
        push(@args, $tag, substr($display_name, 0, 65));
 
-        $default = $tag if ${driver} eq $db->get_value($confEntry);
+        $default = $tag if (${driver} eq $existing_driver || ${driver} ne $driver1);
     }
 
     push( @args,
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
2			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2007-03-06 16:04:55.000000000 -0700
3			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2007-03-06 16:04:48.000000000 -0700
4			@@ -80,6 +80,7 @@
5			my $default;
6
7			my $existing_driver = $db->get_value($confEntry);
8			+ my $driver1 = $db->get_value("EthernetDriver1");
9
10			foreach my $adapter ( @adapters )
11			{
12			@@ -98,7 +99,7 @@
13
14			push(@args, $tag, substr($display_name, 0, 65));
15
16			- $default = $tag if ${driver} eq $db->get_value($confEntry);
17			+ $default = $tag if (${driver} eq $existing_driver \|\| ${driver} ne $driver1);
18			}
19
20			push( @args,