perl-CGI-FormMagick/sme8/perl-CGI-FormMagick-0.92-ip-validation2.patch

diff -up perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation2 perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation2     2011-03-04 09:26:22.000000000 +0100
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm    2011-03-04 09:31:31.000000000 +0100
@@ -150,6 +150,8 @@ sub ip_number {
 
     return 'FM_IP_NUMBER2' unless scalar @dots == 3;
 
+    my @octets = split /\./, $data;
+
     foreach my $octet (@octets) {
         return $fm->localise("FM_IP_NUMBER3", {octet => $octet}) if $octet > 255;
     }
1	diff -up perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation2 perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm
2	--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation2 2011-03-04 09:26:22.000000000 +0100
3	+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm 2011-03-04 09:31:31.000000000 +0100
4	@@ -150,6 +150,8 @@ sub ip_number {
5
6	return 'FM_IP_NUMBER2' unless scalar @dots == 3;
7
8	+ my @octets = split /\./, $data;
9	+
10	foreach my $octet (@octets) {
11	return $fm->localise("FM_IP_NUMBER3", {octet => $octet}) if $octet > 255;
12	}