e-smith-hosts/sme8/e-smith-hosts-2.2.0-trap_croak.patch

diff -up e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.trap_croak e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
--- e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.trap_croak  2010-10-14 11:05:18.000000000 -0600
+++ e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm     2010-10-14 11:57:35.000000000 -0600
@@ -717,7 +717,7 @@ sub must_be_local
     foreach my $spec (@local_list)
     {
         next if $spec eq '127.0.0.1';
-        if (Net::IPv4Addr::ipv4_in_network($spec, $localip))
+        if (eval{Net::IPv4Addr::ipv4_in_network($spec, $localip)})
         {
             return 'OK';
         }
1	slords	1.1	diff -up e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.trap_croak e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
2			--- e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.trap_croak 2010-10-14 11:05:18.000000000 -0600
3			+++ e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2010-10-14 11:57:35.000000000 -0600
4			@@ -717,7 +717,7 @@ sub must_be_local
5			foreach my $spec (@local_list)
6			{
7			next if $spec eq '127.0.0.1';
8			- if (Net::IPv4Addr::ipv4_in_network($spec, $localip))
9			+ if (eval{Net::IPv4Addr::ipv4_in_network($spec, $localip)})
10			{
11			return 'OK';
12			}