1 |
diff -ruN e-smith-base-5.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm |
2 |
--- e-smith-base-5.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-03-15 07:41:52.000000000 -0700 |
3 |
+++ e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-03-15 07:44:24.000000000 -0700 |
4 |
@@ -79,6 +79,8 @@ |
5 |
$existing_hwaddr = $db->get_prop("InternalInterface", "HWAddress"); |
6 |
} |
7 |
|
8 |
+ $existing_hwaddr ||= "unknown"; |
9 |
+ |
10 |
foreach my $adapter ( @adapters ) |
11 |
{ |
12 |
my ($parameter, $driver, $hwaddr, $chipset) = split (/\t/, $adapter, 4); |