e-smith-base/sme8/e-smith-base-5.2.0-existing_hwaddr.patch

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/console/configure.pm     2013-03-15 07:41:52.000000000 -0700
+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2013-03-15 07:44:24.000000000 -0700
@@ -79,6 +79,8 @@
         $existing_hwaddr = $db->get_prop("InternalInterface", "HWAddress");
     }
 
+    $existing_hwaddr ||= "unknown";
+
     foreach my $adapter ( @adapters )
     {
         my ($parameter, $driver, $hwaddr, $chipset) = split (/\t/, $adapter, 4);
1	wellsi	1.1	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
2			--- e-smith-base-5.2.0.old/root/usr/lib/perl5/site_perl/esmith/console/console/configure.pm 2013-03-15 07:41:52.000000000 -0700
3			+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_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);