0afdf0ca83
* Look in the current directory for RangeMessage.xml if it's
not in other locations. This can help with various Perl app
packagers. (But, also try ISBN_RANGE_MESSAGE env var)
- add fix-provides.diff to avoid providing ::ISBN without data
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Business-ISBN-Data?expand=0&rev=18
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_/;
|