r30130 - in /branches/upstream/libbusiness-isbn-perl/current: Changes META.yml Makefile.PL lib/ISBN.pm lib/ISBN10.pm lib/ISBN13.pm t/isbn10.t t/isbn13.t
rmayorga at users.alioth.debian.org
rmayorga at users.alioth.debian.org
Mon Jan 26 20:37:16 UTC 2009
Author: rmayorga
Date: Mon Jan 26 20:37:13 2009
New Revision: 30130
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30130
Log:
[svn-upgrade] Integrating new upstream version, libbusiness-isbn-perl (2.05)
Modified:
branches/upstream/libbusiness-isbn-perl/current/Changes
branches/upstream/libbusiness-isbn-perl/current/META.yml
branches/upstream/libbusiness-isbn-perl/current/Makefile.PL
branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm
branches/upstream/libbusiness-isbn-perl/current/lib/ISBN10.pm
branches/upstream/libbusiness-isbn-perl/current/lib/ISBN13.pm
branches/upstream/libbusiness-isbn-perl/current/t/isbn10.t
branches/upstream/libbusiness-isbn-perl/current/t/isbn13.t
Modified: branches/upstream/libbusiness-isbn-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/Changes?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/Changes (original)
+++ branches/upstream/libbusiness-isbn-perl/current/Changes Mon Jan 26 20:37:13 2009
@@ -1,18 +1,13 @@
Revision history for Perl extension Business::ISBN.
-$Revision: 2.13 $
-$Id: Changes,v 2.13 2007/10/27 07:48:50 comdog Exp $
+
+2.05 - Sun Jan 25 00:00:17 2009
+ * Updated for latest data in Business::ISBN::Data
2.04_01 - Mon Oct 27 12:08:03 2008
* Revert the GD prereq. A lot of testers have borked GD
installs.
* Require 5.8. Some of the new stuff isn't playing well with
5.6
-
-2.04 - Mon Oct 27 12:02:19 2008
- * Undo the GD prereq: it seems a lot of people have out of date
- installations of GD. Fix up the PNG tests to catch that.
- * This isn't testing well on 5.6, so I'm bumping the minimum
- version to 5.8.
2.04 - Sun Oct 26 18:29:20 2008
* Fix tests that used 99902 as a bad prefix. That now
@@ -30,7 +25,7 @@
say
2.02_04 - Sat Sep 1 14:55:00 2007
- [BUGFIX] ISBN13 was returing "Bookland" for all groups, but
+ [BUGFIX] ISBN13 was returning "Bookland" for all groups, but
it shouldn't do that. Now it returns the same thing you'd
get from ISBN10 (e.g. "English", "German", ... ).
@@ -58,7 +53,7 @@
2.01 - Sun Aug 12 22:28:01 2007
* Official release of Business::ISBN to handle ISBN-13
* Does not handle 979- numbers yet (need publisher data for that)
- * Does handle 978-numbere, which is the 10 digit ISBN with a
+ * Does handle 978-numbers, which is the 10 digit ISBN with a
different "country code", so it uses the same publisher data
* There are significant API changes to handle the new stuff. It's
not so bad, but test it before you rip out the old Business::ISBN
Modified: branches/upstream/libbusiness-isbn-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/META.yml?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/META.yml (original)
+++ branches/upstream/libbusiness-isbn-perl/current/META.yml Mon Jan 26 20:37:13 2009
@@ -1,15 +1,22 @@
--- #YAML:1.0
-name: Business-ISBN
-version: 2.04_01
-abstract: Parse and validate ISBNs
-license: perl
-author:
+name: Business-ISBN
+version: 2.05
+abstract: Parse and validate ISBNs
+author:
- brian d foy <bdfoy at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Business::ISBN::Data: 20081020
- Test::More: 0
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Business::ISBN::Data: 20081208
+ Test::More: 0
+ URI: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.48
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libbusiness-isbn-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/Makefile.PL?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/Makefile.PL (original)
+++ branches/upstream/libbusiness-isbn-perl/current/Makefile.PL Mon Jan 26 20:37:13 2009
@@ -13,7 +13,8 @@
'PREREQ_PM' => {
'Test::More' => '0',
- 'Business::ISBN::Data' => '20081020',
+ 'Business::ISBN::Data' => '20081208',
+ 'URI' => '0',
},
'PM' => {
Modified: branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm (original)
+++ branches/upstream/libbusiness-isbn-perl/current/lib/ISBN.pm Mon Jan 26 20:37:13 2009
@@ -72,7 +72,7 @@
use Carp qw(carp croak cluck);
use base qw(Exporter);
-use Business::ISBN::Data 20081020; # now a separate module
+use Business::ISBN::Data 20081208; # now a separate module
# ugh, hack
*group_data = *Business::ISBN::country_data;
sub _group_data { $group_data{ $_[1] } }
@@ -110,7 +110,7 @@
);
};
-$VERSION = "2.04_01";
+$VERSION = "2.05";
sub INVALID_PREFIX () { -4 };
sub INVALID_GROUP_CODE () { -2 };
@@ -815,13 +815,9 @@
=head1 SOURCE AVAILABILITY
-This source is part of a SourceForge project which always has the
-latest sources in CVS, as well as all of the previous releases.
-
- http://sourceforge.net/projects/perl-isbn/
-
-If, for some reason, I disappear from the world, one of the other
-members of the project can shepherd this module appropriately.
+This source is in Github:
+
+ http://github.com/briandfoy/business--isbn/tree/master
=head1 AUTHOR
@@ -829,7 +825,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2001-2007, brian d foy, All Rights Reserved.
+Copyright (c) 2001-2009, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
Modified: branches/upstream/libbusiness-isbn-perl/current/lib/ISBN10.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/lib/ISBN10.pm?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/lib/ISBN10.pm (original)
+++ branches/upstream/libbusiness-isbn-perl/current/lib/ISBN10.pm Mon Jan 26 20:37:13 2009
@@ -5,7 +5,6 @@
use base qw(Business::ISBN);
use Business::ISBN qw(:all);
-use Data::Dumper;
use subs qw(
_checksum
@@ -27,7 +26,7 @@
my $debug = 0;
-$VERSION = '2.04_01';
+$VERSION = '2.05';
sub _max_length { 10 }
@@ -111,13 +110,9 @@
=head1 SOURCE AVAILABILITY
-This source is part of a SourceForge project which always has the
-latest sources in CVS, as well as all of the previous releases.
+This source is in Github:
- http://sourceforge.net/projects/perl-isbn/
-
-If, for some reason, I disappear from the world, one of the other
-members of the project can shepherd this module appropriately.
+ http://github.com/briandfoy/business--isbn/tree/master
=head1 AUTHOR
@@ -125,7 +120,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2001-2007, brian d foy, All Rights Reserved.
+Copyright (c) 2001-2009, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
Modified: branches/upstream/libbusiness-isbn-perl/current/lib/ISBN13.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/lib/ISBN13.pm?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/lib/ISBN13.pm (original)
+++ branches/upstream/libbusiness-isbn-perl/current/lib/ISBN13.pm Mon Jan 26 20:37:13 2009
@@ -24,7 +24,7 @@
my $debug = 0;
-$VERSION = '2.04_01';
+$VERSION = '2.05';
sub _max_length { 13 }
@@ -123,13 +123,9 @@
=head1 SOURCE AVAILABILITY
-This source is part of a SourceForge project which always has the
-latest sources in CVS, as well as all of the previous releases.
+This source is in Github.
- http://sourceforge.net/projects/perl-isbn/
-
-If, for some reason, I disappear from the world, one of the other
-members of the project can shepherd this module appropriately.
+ http://github.com/briandfoy/business--isbn/tree/master
=head1 AUTHOR
@@ -137,7 +133,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2001-2007, brian d foy, All Rights Reserved.
+Copyright (c) 2001-2009, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
Modified: branches/upstream/libbusiness-isbn-perl/current/t/isbn10.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/t/isbn10.t?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/t/isbn10.t (original)
+++ branches/upstream/libbusiness-isbn-perl/current/t/isbn10.t Mon Jan 26 20:37:13 2009
@@ -43,7 +43,7 @@
is( $isbn->prefix, '', "$GOOD_ISBN has right prefix");
is( $isbn->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
is( $isbn->group_code, $GROUP_CODE, "$GOOD_ISBN has right country code");
-is( $isbn->group, $GROUP, "$GOOD_ISBN has right country");
+like( $isbn->group, qr/\Q$GROUP/, "$GOOD_ISBN has right country");
is( $isbn->as_string, $GOOD_ISBN_STRING, "$GOOD_ISBN stringifies correctly");
is( $isbn->as_string([]), $GOOD_ISBN, "$GOOD_ISBN stringifies correctly");
@@ -59,7 +59,7 @@
is( $clone->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
is( $clone->group_code, $GROUP_CODE, "$GOOD_ISBN has right country code");
-is( $clone->group, $GROUP, "$GOOD_ISBN has right country");
+like( $clone->group, qr/\Q$GROUP/, "$GOOD_ISBN has right country");
is( $clone->as_string, $GOOD_ISBN_STRING, "$GOOD_ISBN stringifies correctly");
is( $clone->as_string([]), $GOOD_ISBN, "$GOOD_ISBN stringifies correctly");
}
@@ -76,7 +76,7 @@
is( $clone->prefix, $PREFIX, "$GOOD_ISBN has right prefix");
is( $clone->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
is( $clone->group_code, $GROUP_CODE, "$GOOD_ISBN has right country code");
-is( $clone->group, $GROUP, "$GOOD_ISBN has right country");
+like( $clone->group, qr/\Q$GROUP/, "$GOOD_ISBN has right country");
is( $clone->as_string, $GOOD_EAN_STRING, "$GOOD_ISBN stringifies correctly");
is( $clone->as_string([]), $GOOD_EAN, "$GOOD_ISBN stringifies correctly");
}
@@ -181,4 +181,4 @@
diag( "\nMatched $good bad ISBNs\n\t at good" );
}
- }
+ }
Modified: branches/upstream/libbusiness-isbn-perl/current/t/isbn13.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-isbn-perl/current/t/isbn13.t?rev=30130&op=diff
==============================================================================
--- branches/upstream/libbusiness-isbn-perl/current/t/isbn13.t (original)
+++ branches/upstream/libbusiness-isbn-perl/current/t/isbn13.t Mon Jan 26 20:37:13 2009
@@ -49,7 +49,7 @@
is( $isbn->prefix, $PREFIX, "$GOOD_ISBN has right prefix");
is( $isbn->group_code, $GROUP_CODE, "$GOOD_ISBN has right group code");
-is( $isbn->group, $GROUP, "$GOOD_ISBN has right group");
+like( $isbn->group, qr/\Q$GROUP/, "$GOOD_ISBN has right group");
is( $isbn->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
@@ -72,7 +72,7 @@
is( $isbn->prefix, $PREFIX, "$GOOD_ISBN has right prefix");
is( $isbn->group_code, $GROUP_CODE, "$GOOD_ISBN has right group code");
-is( $isbn->group, $GROUP, "$GOOD_ISBN has right group");
+like( $isbn->group, qr/\Q$GROUP/, "$GOOD_ISBN has right group");
is( $isbn->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
@@ -97,7 +97,7 @@
is( $clone->prefix, '', "$GOOD_ISBN has right prefix");
is( $clone->publisher_code, $PUBLISHER, "$GOOD_ISBN has right publisher");
is( $clone->group_code, $GROUP_CODE, "$GOOD_ISBN has right country code");
-is( $clone->group, $GROUP, "$GOOD_ISBN has right country");
+like( $clone->group, qr/\Q$GROUP/, "$GOOD_ISBN has right country");
is( $clone->as_string([]), $GOOD_ISBN10, "$GOOD_ISBN stringifies correctly");
}
@@ -245,4 +245,4 @@
diag( "Matched $good bad ISBNs\n\t at good\n" );
}
- }
+ }
More information about the Pkg-perl-cvs-commits
mailing list