e-smith-lib/sme9/e-smith-lib-2.4.0-ipv4check.patch

diff -ruN e-smith-lib-2.2.0.old/root/usr/share/perl5/vendor_perl/esmith/util/network.pm e-smith-lib-2.2.0/root/usr/share/perl5/vendor_perl/esmith/util/network.pm
--- e-smith-lib-2.2.0.old//root/usr/share/perl5/vendor_perl/esmith/util/network.pm      2004-08-25 09:05:37.000000000 -0700
+++ e-smith-lib-2.2.0/root/usr/share/perl5/vendor_perl/esmith/util/network.pm   2013-02-22 08:20:11.000000000 -0800
@@ -131,6 +131,7 @@
 sub isValidIP($)
 {
     my ($string) = @_;
+    return unless defined ipv4_chkip($string);
     return $string eq ipv4_chkip($string);
 }
 
1	wellsi	1.1	diff -ruN e-smith-lib-2.2.0.old/root/usr/share/perl5/vendor_perl/esmith/util/network.pm e-smith-lib-2.2.0/root/usr/share/perl5/vendor_perl/esmith/util/network.pm
2			--- e-smith-lib-2.2.0.old//root/usr/share/perl5/vendor_perl/esmith/util/network.pm 2004-08-25 09:05:37.000000000 -0700
3			+++ e-smith-lib-2.2.0/root/usr/share/perl5/vendor_perl/esmith/util/network.pm 2013-02-22 08:20:11.000000000 -0800
4			@@ -131,6 +131,7 @@
5			sub isValidIP($)
6			{
7			my ($string) = @_;
8			+ return unless defined ipv4_chkip($string);
9			return $string eq ipv4_chkip($string);
10			}
11