Changeset 2419

Show
Ignore:
Timestamp:
01/22/08 14:50:58
Author:
miyagawa
Message:

Checking in changes prior to tagging of version 0.08. Changelog diff is:

=== Changes
==================================================================
--- Changes (revision 5554)
+++ Changes (local)
@@ -1,5 +1,9 @@

Revision history for Perl extension Mail::Address
MobileJp?.

+0.08 Mon Jan 21 21:41:33 PST 2008
+ * Added @disney.ne.jp to is_softbank
+ http://japan.cnet.com/mobile/story/0,3800078151,20365410,00.htm
+

0.07 Thu Sep 7 14:10:56 JST 2006

          • Now is_softbank is an alias to is_vodafone. foo@softbank.ne.jp returns 1 on is_vodafone
            (Thanks to Livedoor Mobile folks)
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Mail-Address-MobileJp/trunk/Changes

    r1934 r2419  
    11Revision history for Perl extension Mail::Address::MobileJp. 
     2 
     30.08  Mon Jan 21 21:41:33 PST 2008 
     4        * Added @disney.ne.jp to is_softbank 
     5          http://japan.cnet.com/mobile/story/0,3800078151,20365410,00.htm 
    26 
    370.07  Thu Sep  7 14:10:56 JST 2006 
  • Mail-Address-MobileJp/trunk/lib/Mail/Address/MobileJp.pm

    r2031 r2419  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.07'; 
     5$VERSION = '0.08'; 
    66 
    77BEGIN { 
     
    6767jp\-[dhtckrnsq]\.ne\.jp| 
    6868[dhtckrnsq]\.vodafone\.ne\.jp| 
    69 ^softbank\.ne\.jp 
     69softbank\.ne\.jp| 
     70disney.ne.jp 
    7071)$@x; # end of qr@@ 
    7172 
  • Mail-Address-MobileJp/trunk/t/01_mobile.t

    r1934 r2419  
    11use strict; 
    2 use Test::More tests => 36
     2use Test::More tests => 38
    33 
    44use Mail::Address; 
     
    2323    'foo@softbank.ne.jp', 
    2424    'foo@d.vodafone.ne.jp', 
     25    'foo@disney.ne.jp', 
    2526); 
    2627