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	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);