Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
SUSE:SLE-15-SP2:GA
perl-Net-IP
ipcount-invalid_chars_in_IP.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File ipcount-invalid_chars_in_IP.patch of Package perl-Net-IP
Index: Net-IP-1.26/ipcount =================================================================== --- Net-IP-1.26.orig/ipcount 2005-10-18 11:59:52.000000000 +0200 +++ Net-IP-1.26/ipcount 2015-09-16 13:50:21.639082216 +0200 @@ -51,6 +51,7 @@ getopts ('rd:',\%opts); scalar (@ARGV) < 1 and usage(); my $arg = join '',@ARGV; $arg =~ s/\s+//g; +$arg =~ s/\+/ \+ /g; my $ip = new Net::IP($arg) or die ("Cannot create IP object $arg: ".Error()); @@ -77,7 +78,7 @@ if ($opts{d}) while ($current->bincomp ('lt', $last)) { - $new_ip->set($current->last_ip.'+'.$size) or die (Error()); + $new_ip->set($current->last_ip.' + '.$size) or die (Error()); print $new_ip->print,"\n"; if ($opts{r}) @@ -85,7 +86,7 @@ if ($opts{d}) print $new_ip->reverse_ip,"\n"; } - $current->set($new_ip->last_ip .'+ 1') or die (Error()); + $current->set($new_ip->last_ip .' + 1') or die (Error()); $count++; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
