e-smith-base/sme7/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	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 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:") .