e-smith-base/sme7/e-smith-base-4.18.1-ethernetlist.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm        2008-03-26 10:49:00.000000000 -0600
+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm      2008-04-23 10:00:35.000000000 -0600
@@ -44,7 +44,6 @@
 {
     my ($ifName, $confEntry) = @_;
     my $item = 0;
-    my $adapterList;
 
     if (scalar @adapters == 1)
     {
@@ -72,11 +71,6 @@
        }
     }
 
-    if ( scalar @adapters == 0 )
-    {
-        $adapterList = "    (none)";
-    }
-
     my %tag2driver;
     my @args;
     my $default;
@@ -89,9 +83,6 @@
         my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
         chomp($chipset);
 
-       $adapterList .= "    " .
-                substr("${chipset} (driver ${driver})", 0, 72) . "\n";
-
        my $tag = ++$item . ".";
 
        $tag2driver{$tag} = $driver;
@@ -125,12 +116,7 @@
              "%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:") .
-         "\n\n" .
-         $adapterList,
+             "directly choosing a driver.\n"), $ifName),
          argsref => \@args,
         );
 
1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
2	--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-03-26 10:49:00.000000000 -0600
3	+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-04-23 10:00:35.000000000 -0600
4	@@ -44,7 +44,6 @@
5	{
6	my ($ifName, $confEntry) = @_;
7	my $item = 0;
8	- my $adapterList;
9
10	if (scalar @adapters == 1)
11	{
12	@@ -72,11 +71,6 @@
13	}
14	}
15
16	- if ( scalar @adapters == 0 )
17	- {
18	- $adapterList = " (none)";
19	- }
20	-
21	my %tag2driver;
22	my @args;
23	my $default;
24	@@ -89,9 +83,6 @@
25	my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
26	chomp($chipset);
27
28	- $adapterList .= " " .
29	- substr("${chipset} (driver ${driver})", 0, 72) . "\n";
30	-
31	my $tag = ++$item . ".";
32
33	$tag2driver{$tag} = $driver;
34	@@ -125,12 +116,7 @@
35	"%s network ethernet adapter. The server can attempt to do " .
36	"this automatically, or you can do it manually - either by " .
37	"specifying the model of your ethernet adapter or by " .
38	- "directly choosing a driver."),
39	- $ifName) .
40	- "\n\n" .
41	- gettext("The server has detected these ethernet adapters:") .
42	- "\n\n" .
43	- $adapterList,
44	+ "directly choosing a driver.\n"), $ifName),
45	argsref => \@args,
46	);
47