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