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

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 17:45:54.000000000 -0500
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm      2007-03-06 17:45:26.000000000 -0500
@@ -74,17 +74,6 @@
     {
         $adapterList = "    (none)";
     }
-    else
-    {
-        foreach my $adapter ( @adapters )
-        {
-            my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
-            chomp $chipset;
-
-            $adapterList .= "    " .
-                substr("${chipset} (driver ${driver})", 0, 72) . "\n";
-        }
-    }
 
     my %tag2driver;
     my @args;
@@ -97,6 +86,9 @@
         my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
         chomp($chipset);
 
+       $adapterList .= "    " .
+                substr("${chipset} (driver ${driver})", 0, 72) . "\n";
+
        my $tag = ++$item . ".";
 
        $tag2driver{$tag} = $driver;
@@ -122,7 +114,11 @@
                           $ifName),
         default => $default,
          text  =>
-         sprintf(gettext("You now need to select the proper driver for your %s network ethernet adapter. The server can attempt to do this automatically, or you can do it manually - either by specifying the model of your ethernet adapter or by directly choosing a driver."),
+         sprintf(gettext("You now need to select the proper driver for your " .
+             "%s network ethernet adapter. The server can attempt to do " .
+             "this automatically, or you can do it manually - either by " .
+             "specifying the model of your ethernet adapter or by " .
+             "directly choosing a driver."),
                  $ifName) .
          "\n\n" .
          gettext("The server has detected these ethernet adapters:") .
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 17:45:54.000000000 -0500
3	+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2007-03-06 17:45:26.000000000 -0500
4	@@ -74,17 +74,6 @@
5	{
6	$adapterList = " (none)";
7	}
8	- else
9	- {
10	- foreach my $adapter ( @adapters )
11	- {
12	- my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
13	- chomp $chipset;
14	-
15	- $adapterList .= " " .
16	- substr("${chipset} (driver ${driver})", 0, 72) . "\n";
17	- }
18	- }
19
20	my %tag2driver;
21	my @args;
22	@@ -97,6 +86,9 @@
23	my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
24	chomp($chipset);
25
26	+ $adapterList .= " " .
27	+ substr("${chipset} (driver ${driver})", 0, 72) . "\n";
28	+
29	my $tag = ++$item . ".";
30
31	$tag2driver{$tag} = $driver;
32	@@ -122,7 +114,11 @@
33	$ifName),
34	default => $default,
35	text =>
36	- sprintf(gettext("You now need to select the proper driver for your %s network ethernet adapter. The server can attempt to do this automatically, or you can do it manually - either by specifying the model of your ethernet adapter or by directly choosing a driver."),
37	+ sprintf(gettext("You now need to select the proper driver for your " .
38	+ "%s network ethernet adapter. The server can attempt to do " .
39	+ "this automatically, or you can do it manually - either by " .
40	+ "specifying the model of your ethernet adapter or by " .
41	+ "directly choosing a driver."),
42	$ifName) .
43	"\n\n" .
44	gettext("The server has detected these ethernet adapters:") .