Skip to content
Browse files

Number::Phone 1.7003 release

  • Loading branch information...
1 parent 39960a9 commit ae080eb2613ca914441c84a8f75875e9f817ba64 @DrHyde DrHyde committed Oct 18, 2009
Showing with 22 additions and 17 deletions.
  1. +12 −9 CHANGELOG
  2. +1 −0 MANIFEST
  3. +7 −6 build-data.realwork
  4. +2 −2 lib/Number/Phone.pm
  5. BIN lib/Number/Phone/UK/Data.pm
View
21 CHANGELOG
@@ -1,17 +1,20 @@
+2009-10-18 1.7003 Minor bugfix, see https://rt.cpan.org/ ticket 48581;
+ New UK allocations
+
2009-04-22 1.7002 Fix minor bug (...::UK constructor returning 0
instead of undef for (some?) invalid numbers,
- reported by Tomasz Chomiuk;
- New UK allocations
+ reported by Tomasz Chomiuk;
+ New UK allocations
2009-03-04 1.7001 Kill warnings about GE being deprecated;
Add missing dep on Digest::MD5
2009-02-26 1.7 Fix formatting for valid but unallocated UK numbers;
- One of the UK telcos whose name we check for in
- tests renamed itself;
+ One of the UK telcos whose name we check for in
+ tests renamed itself;
New UK allocations;
- Added country-to-code and national/international
- prefix data to N::P::C, thanks to Michael Schout
+ Added country-to-code and national/international
+ prefix data to N::P::C, thanks to Michael Schout
2008-05-27 1.6 Magic country detection now works (thanks to
Jos Boumans for reporting the bug);
@@ -28,8 +31,8 @@
New UK allocations (in particular 03 range)
2007-03-13 1.57 New UK allocations;
Bundle DBM::Deep cos old version is incompatible
-2007-02-24 1.5601 New UK allocations
-2006-12-08 1.56 New UK allocations;
+2007-02-24 1.5601 New UK allocations
+2006-12-08 1.56 New UK allocations;
Updated OFCOM parser;
Loads of Number::Phone::Country updates -
+1: NANP overlays: 226, 438, 762, 769, 829;
@@ -45,7 +48,7 @@
+881 7: Iridium
+881 8: Globalstar
2006-08-25 1.55 Damnit, 1.54's ...UK->location() was wrong
-2006-08-24 1.54 And again!
+2006-08-24 1.54 And again!
2006-08-23 1.53 Doh! How we loaded location data was buggy
2006-08-23 1.52 Documentation patches;
Corrected CHANGELOG entry for v1.51;
View
1 MANIFEST
@@ -49,3 +49,4 @@ lib/Number/Phone/UK/DBM/Deep/Hash.pm
lib/Number/Phone/UK/DBM/Deep.pm
t/30_find-right-subclass.t
t/54_number-phone-country-prefix.t
+t/900_bugfix-rt48581.t
View
13 build-data.realwork
@@ -76,14 +76,9 @@ while(my $line = <SABC>) {
push @geo_prefices, $fields[0] if($fields[0] =~ /^[12]/);
- # if($fields[3] =~ /(Emergency Services|Internet for Schools|Internet Services|(Internal|Inbound) Routing|Broadband Services)/i) {
- # push @network_svc_prefices, $fields[0]
- # }
if($fields[2] eq 'Designated' && $fields[3] !~ /^Geographic - unassigned/) {
$areanames{$fields[0]} = $fields[3];
}
-
- # FIXME - need to deal with 81NN onwards
}
close(SABC);
@@ -99,6 +94,12 @@ while(my $line = <S1>) {
my $telco = $fields[5];
my $format = $fields[6];
+ # ick, temporary fix for OFCOM brokenness
+ if($format eq "F-Digit '6'") {
+ $format = '4+6';
+ warn("Using temporary fix for OFCOM brokenness re F-digit\n");
+ }
+
push @telco_length_data, [$retard, $telco, $format];
}
close(S1);
@@ -124,7 +125,7 @@ while(my $line = <S8>) {
$line =~ s/,$/,""/;
$csv->parse($line) || die("Bad CSV line in s8_code.txt\n\n$line\n\n");
my @fields = $csv->fields();
- next if($fields[3] !~ /^Allocated( \(Closed Range\)| for Migration only)?$/); # || $fields[5] eq 'mixed operators');
+ next if($fields[3] !~ /^Allocated( \(Closed Range\)| for Migration only)?$/);
my $retard = join('',@fields[0,1,2]);
my $telco = $fields[6];
View
4 lib/Number/Phone.pm
@@ -6,7 +6,7 @@ use Scalar::Util 'blessed';
use Number::Phone::Country qw(noexport uk);
-our $VERSION = 1.7002;
+our $VERSION = 1.7003;
my @is_methods = qw(
is_valid is_allocated is_in_use
@@ -375,6 +375,6 @@ perl itself.
David Cantrell E<lt>david@cantrell.org.ukE<gt>
-Copyright 2004 - 2008
+Copyright 2004 - 2009
=cut
View
BIN lib/Number/Phone/UK/Data.pm
Binary file not shown.

0 comments on commit ae080eb

Please sign in to comment.
Something went wrong with that request. Please try again.