diff -up e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.no-nic2 e-smith-base-5.2.0/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.no-nic2	2011-03-02 20:15:58.000000000 +0100
+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm	2011-03-02 20:22:08.000000000 +0100
@@ -79,18 +79,6 @@ sub ethernetSelect($$)
         $existing_hwaddr = $db->get_prop("InternalInterface", "HWAddress");
     }
 
-    if ( @adapters == 0 ) {
-
-        my ($rc, $choice) = $console->message_page
-               (
-                title   => gettext("No network interfaces found"),
-                text    => gettext("The installer can't continue because no network interfaces are installed or recognised. Please install at least one network interface."),
-               );
-
-        return 'NONIC';
-
-    }
-
     foreach my $adapter ( @adapters )
     {
         my ($parameter, $driver, $hwaddr, $chipset) = split (/\s+/, $adapter, 4);
@@ -173,6 +161,24 @@ sub doit
     @adapters = split(/\n/, esmith::ethernet::probeAdapters());
 
     #------------------------------------------------------------
+    NO_NIC:
+    #------------------------------------------------------------
+{
+
+    if ( @adapters == 0 ) {
+
+        ($rc, $choice) = $console->message_page
+               (
+                title   => gettext("No network interfaces found"),
+                text    => gettext("The installer can't continue because no network interfaces are installed or recognised. Please install at least one network interface."),
+               );
+
+        goto QUIT1;
+
+    }
+
+}
+    #------------------------------------------------------------
     DOMAIN_NAME:
     #------------------------------------------------------------
 {