diff -ruN e-smith-base-5.2.0.old/root/usr/lib/perl5/site_perl/esmith/console/configure.pm e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm --- e-smith-base-5.2.0.old/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2012-02-05 00:14:41.000000000 +0000 +++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2012-03-17 04:33:45.000000000 +0000 @@ -81,21 +81,23 @@ foreach my $adapter ( @adapters ) { - my ($parameter, $driver, $hwaddr, $chipset) = split (/\s+/, $adapter, 4); + my ($parameter, $driver, $hwaddr, $chipset) = split (/\t/, $adapter, 4); chomp($chipset); + + #Ensure these are defined to at least "N/A" as no selection is shown if these are not defined. + $hwaddr = "N/A" unless $hwaddr; + $driver = "N/A" unless $driver; my $tag = ++$item . "."; $tag2driver{$tag} = $driver; $tag2hwaddr{$tag} = $hwaddr; - - my $display_name = gettext("Use") . " " . ${driver} . " " . - gettext("for chipset") . " " . ${chipset}; - - push(@args, $tag, substr($display_name, 0, 65)); + + my $display_name = gettext("Use") ." ". ${driver}. " " . $hwaddr ." ". ${chipset}; if ($hwaddr ne $skip) { + push(@args, $tag, substr($display_name, 0, 65)); $default = $tag if $hwaddr eq $existing_hwaddr; $default ||= $tag; }