Permalink
Browse files

Fixing uninitialized value in invert_ip and updating test

  • Loading branch information...
1 parent 9ba1b60 commit d234f8a23a63d7f0b2f91ea7b093e7639fc5e00c @Tlousky committed Jun 10, 2010
Showing with 2 additions and 2 deletions.
  1. +1 −1 lib/Net/IPAddress/Minimal.pm
  2. +1 −1 t/invert.t
@@ -10,7 +10,7 @@ our @EXPORT_OK = qw( ip_to_num num_to_ip invert_ip );
our $VERSION = '0.01';
sub test_string_structure {
- my $string = shift;
+ my $string = shift || q{};
if ( $string =~ /(\d+\.\d+\.\d+\.\d+)/ ) {
# If this is an IP, return the ip flag and seperated IP classes
View
@@ -4,7 +4,7 @@
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 4;
use Net::IPAddress::Minimal 'invert_ip';
my $ip_a = '7.91.205.21';

0 comments on commit d234f8a

Please sign in to comment.