Changeset 904

Show
Ignore:
Timestamp:
07/08/03 13:16:57
Author:
miyagawa
Message:

0.03

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • NetAddr-IP-Find/trunk/Changes

    r274 r904  
    11Revision history for Perl extension NetAddr::IP::Find. 
     2 
     30.03  Tue Jul  8 13:15:22 JST 2003 
     4        * Fixed bug that any 4 integers with dot are parsed as IP 
     5          (Thanks to Reid Leatzow) 
    26 
    370.02  Fri Oct  5 01:21:25 JST 2001 
  • NetAddr-IP-Find/trunk/lib/NetAddr/IP/Find.pm

    r270 r904  
    33use strict; 
    44use vars qw($VERSION @EXPORT); 
    5 $VERSION = '0.02'; 
     5$VERSION = '0.03'; 
    66 
    77use base qw(Exporter); 
     
    1818    $$r_text =~ s{$regex}{ 
    1919        my $orig_match = join '.', $1, $2, $3, $4; 
    20         if (grep { _in_range($_) } $1, $2, $3, $4 == 4) { 
     20        if ((my $num_matches = grep { _in_range($_) } $1, $2, $3, $4) == 4) { 
    2121            $addrs_found++; 
    2222            my $ipaddr = NetAddr::IP->new($orig_match); 
  • NetAddr-IP-Find/trunk/t/00_find.t

    r270 r904  
    11use strict; 
    2 use Test; 
    3 BEGIN { plan tests => 3 } 
     2use Test::More tests => 4; 
    43 
    54use NetAddr::IP::Find; 
     
    1514                            }); 
    1615 
     16is($how_many, 6); 
    1717ok(@how_many == $how_many); 
    1818ok((grep { $_->isa('NetAddr::IP') } @how_many) == $how_many); 
     
    2626194.109.233.175 - - [09/Jul/2001:00:07:52 +0900] "GET /lib/archives/CGI-Upload-0.01.readme HTTP/1.1" 404 310 "http://www.google.com/search?q=cgi+upload+example&hl=en&safe=off&start=10&sa=N" "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)" 
    2727202.247.6.8 - - [09/Jul/2001:00:12:42 +0900] "GET /rss/rdf.cgi?KtaiWatch HTTP/1.0" 200 2729 "-" "Java1.3.0_02" 
     28256.256.256.256 - - dummy line