15 lines
537 B
Diff
15 lines
537 B
Diff
|
Index: Business-ISBN-Data-20140910.002/lib/Business/ISBN/Data.pm
|
||
|
|
===================================================================
|
||
|
|
--- Business-ISBN-Data-20140910.002.orig/lib/Business/ISBN/Data.pm
|
||
|
|
+++ Business-ISBN-Data-20140910.002/lib/Business/ISBN/Data.pm
|
||
|
|
@@ -375,7 +375,8 @@ $Business::ISBN::MAX_COUNTRY_CODE_LENGTH
|
||
|
|
( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )[-1]
|
||
|
|
);
|
||
|
|
|
||
|
|
-package Business::ISBN;
|
||
|
|
+package
|
||
|
|
+ Business::ISBN;
|
||
|
|
|
||
|
|
sub isbn_group_code_string_from_number {
|
||
|
|
return if $_[0] =~ /\A_/;
|