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.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-06-24 18:39:49.000000000 -0700 +++ e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-06-24 18:43:57.000000000 -0700 @@ -251,6 +251,14 @@ if ($choice =~ /^([a-zA-Z][a-zA-Z0-9\-]*)$/) { $db->set_value('SystemName', $SystemName = lc($1)); + if ($oldSystemName ne $SystemName) + { + # Delete old static hosts db record if one exists + use esmith::HostsDB; + my $hdb = esmith::HostsDB->open; + my $rec = $hdb->get("$oldSystemName.$DomainName"); + $rec->delete if $rec; + } goto ETHERNET_LOCAL; }