r26425 - in /trunk/libbusiness-isbn-perl: Changes MANIFEST META.yml Makefile.PL debian/changelog lib/ISBN.pm lib/ISBN10.pm lib/ISBN13.pm t/isbn10.t t/isbn13.t t/png_barcode.t
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Sat Nov 1 05:50:26 UTC 2008
Author: ghostbar-guest
Date: Sat Nov 1 05:50:23 2008
New Revision: 26425
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26425
Log:
New upstream release
Modified:
trunk/libbusiness-isbn-perl/Changes
trunk/libbusiness-isbn-perl/MANIFEST
trunk/libbusiness-isbn-perl/META.yml
trunk/libbusiness-isbn-perl/Makefile.PL
trunk/libbusiness-isbn-perl/debian/changelog
trunk/libbusiness-isbn-perl/lib/ISBN.pm
trunk/libbusiness-isbn-perl/lib/ISBN10.pm
trunk/libbusiness-isbn-perl/lib/ISBN13.pm
trunk/libbusiness-isbn-perl/t/isbn10.t
trunk/libbusiness-isbn-perl/t/isbn13.t
trunk/libbusiness-isbn-perl/t/png_barcode.t
Modified: trunk/libbusiness-isbn-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/Changes?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/Changes (original)
+++ trunk/libbusiness-isbn-perl/Changes Sat Nov 1 05:50:23 2008
@@ -1,6 +1,22 @@
Revision history for Perl extension Business::ISBN.
$Revision: 2.13 $
$Id: Changes,v 2.13 2007/10/27 07:48:50 comdog Exp $
+
+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
+ belongs to Gabon.
2.03 - Sat Oct 27 02:48:15 2007
* adjustments to make png_barcode.t actually work (RT #30291)
Modified: trunk/libbusiness-isbn-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/MANIFEST?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/MANIFEST (original)
+++ trunk/libbusiness-isbn-perl/MANIFEST Sat Nov 1 05:50:23 2008
@@ -10,7 +10,6 @@
LICENSE
Makefile.PL
MANIFEST
-META.yml
README
scripts/get_isbn_data.pl
t/albania.t
@@ -29,3 +28,4 @@
t/test_manifest
t/valid_isbn_checksum.t
t/xisbn10.t
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libbusiness-isbn-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/META.yml?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/META.yml (original)
+++ trunk/libbusiness-isbn-perl/META.yml Sat Nov 1 05:50:23 2008
@@ -1,15 +1,15 @@
--- #YAML:1.0
name: Business-ISBN
-version: 2.03_01
+version: 2.04_01
abstract: Parse and validate ISBNs
license: perl
-generated_by: ExtUtils::MakeMaker version 6.36
+author:
+ - brian d foy <bdfoy at cpan.org>
+generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
- Business::ISBN::Data: 1.15
+ Business::ISBN::Data: 20081020
Test::More: 0
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
version: 1.3
-author:
- - brian d foy <bdfoy at cpan.org>
Modified: trunk/libbusiness-isbn-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/Makefile.PL?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/Makefile.PL (original)
+++ trunk/libbusiness-isbn-perl/Makefile.PL Sat Nov 1 05:50:23 2008
@@ -1,27 +1,26 @@
-# $Id: Makefile.PL,v 2.5 2007/10/27 07:43:55 comdog Exp $
-require 5.006;
+require 5.008;
use ExtUtils::MakeMaker;
-eval "use Test::Manifest 1.14";
+eval "use Test::Manifest 1.21";
WriteMakefile(
- 'NAME' => 'Business::ISBN',
+ 'NAME' => 'Business::ISBN',
'ABSTRACT' => 'Parse and validate ISBNs',
- 'VERSION_FROM' => 'lib/ISBN.pm',
+ 'VERSION_FROM' => 'lib/ISBN.pm',
'LICENSE' => 'perl',
- 'AUTHOR' => 'brian d foy <bdfoy at cpan.org>',
-
+ 'AUTHOR' => 'brian d foy <bdfoy at cpan.org>',
+
'PREREQ_PM' => {
- 'Test::More' => '0',
- 'Business::ISBN::Data' => '1.15',
- },
+ 'Test::More' => '0',
+ 'Business::ISBN::Data' => '20081020',
+ },
'PM' => {
'lib/ISBN.pm' => '$(INST_LIBDIR)/ISBN.pm',
'lib/ISBN10.pm' => '$(INST_LIBDIR)/ISBN10.pm',
'lib/ISBN13.pm' => '$(INST_LIBDIR)/ISBN13.pm',
},
-
+
clean => { FILES => '*.bak Business-*' },
);
Modified: trunk/libbusiness-isbn-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/debian/changelog?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/debian/changelog (original)
+++ trunk/libbusiness-isbn-perl/debian/changelog Sat Nov 1 05:50:23 2008
@@ -1,3 +1,10 @@
+libbusiness-isbn-perl (2.04.01-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+ *
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Sat, 01 Nov 2008 01:18:22 -0430
+
libbusiness-isbn-perl (2.03.01-1) unstable; urgency=low
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
Modified: trunk/libbusiness-isbn-perl/lib/ISBN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/lib/ISBN.pm?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/lib/ISBN.pm (original)
+++ trunk/libbusiness-isbn-perl/lib/ISBN.pm Sat Nov 1 05:50:23 2008
@@ -1,5 +1,5 @@
-# $Revision: 2.15 $
-# $Id: ISBN.pm,v 2.15 2007/10/27 07:43:55 comdog Exp $
+# $Revision: 2.16 $
+# $Id: ISBN.pm,v 2.16 2008/08/09 04:29:55 comdog Exp $
package Business::ISBN;
use strict;
@@ -12,24 +12,26 @@
use Business::ISBN;
# 10 digit ISBNs
- $isbn_object = Business::ISBN->new('1565922573');
- $isbn_object = Business::ISBN->new('1-56592-257-3');
+ $isbn10 = Business::ISBN->new('1565922573');
+ $isbn10 = Business::ISBN->new('1-56592-257-3');
# 13 digit ISBNs
- $isbn_object = Business::ISBN->new('978-0-596-52724-2');
+ $isbn13 = Business::ISBN->new('978-0-596-52724-2');
# convert
- $isbn10 = $isbn->as_isbn10; # for the 978 prefixes
+ $isbn10 = $isbn13->as_isbn10; # for the 978 prefixes
$isbn13 = $isbn10->as_isbn13;
-
+ # maybe you don't care what it is as long as everything works
+ $isbn = Business::ISBN->new( $ARGV[0] );
+
#print the ISBN with hyphens at usual positions
- print $isbn_object->as_string;
+ print $isbn->as_string;
#print the ISBN with hyphens at specified positions.
#this not does affect the default positions
- print $isbn_object->as_string([]);
+ print $isbn->as_string([]);
#print the group code or publisher code
print $isbn->group_code;
@@ -37,14 +39,14 @@
print $isbn->publisher_code;
#check to see if the ISBN is valid
- $isbn_object->is_valid;
+ $isbn->is_valid;
#fix the ISBN checksum. BEWARE: the error might not be
#in the checksum!
- $isbn_object->fix_checksum;
+ $isbn->fix_checksum;
# create an EAN13 barcode in PNG format
- $isbn_object->png_barcode;
+ $isbn->png_barcode;
=head1 DESCRIPTION
@@ -70,7 +72,7 @@
use Carp qw(carp croak cluck);
use base qw(Exporter);
-use Business::ISBN::Data 1.15; # now a separate module
+use Business::ISBN::Data 20081020; # now a separate module
# ugh, hack
*group_data = *Business::ISBN::country_data;
sub _group_data { $group_data{ $_[1] } }
@@ -108,7 +110,7 @@
);
};
-$VERSION = "2.03_01";
+$VERSION = "2.04_01";
sub INVALID_PREFIX () { -4 };
sub INVALID_GROUP_CODE () { -2 };
Modified: trunk/libbusiness-isbn-perl/lib/ISBN10.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/lib/ISBN10.pm?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/lib/ISBN10.pm (original)
+++ trunk/libbusiness-isbn-perl/lib/ISBN10.pm Sat Nov 1 05:50:23 2008
@@ -27,7 +27,7 @@
my $debug = 0;
-($VERSION) = q$Revision: 2.4 $ =~ m/(\d+\.\d+)\s*$/;
+$VERSION = '2.04_01';
sub _max_length { 10 }
Modified: trunk/libbusiness-isbn-perl/lib/ISBN13.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/lib/ISBN13.pm?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/lib/ISBN13.pm (original)
+++ trunk/libbusiness-isbn-perl/lib/ISBN13.pm Sat Nov 1 05:50:23 2008
@@ -24,7 +24,7 @@
my $debug = 0;
-($VERSION) = q$Revision: 2.8 $ =~ m/(\d+\.\d+)\s*$/;
+$VERSION = '2.04_01';
sub _max_length { 13 }
Modified: trunk/libbusiness-isbn-perl/t/isbn10.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/t/isbn10.t?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/t/isbn10.t (original)
+++ trunk/libbusiness-isbn-perl/t/isbn10.t Sat Nov 1 05:50:23 2008
@@ -21,7 +21,7 @@
my $BAD_CHECKSUM_ISBN = "0596527244";
-my $BAD_GROUP_ISBN = "9990222576";
+my $BAD_GROUP_ISBN = "9997022576";
my $BAD_PUBLISHER_ISBN = "9165022222"; # 91-650-22222-? Sweden (stops at 649)
Modified: trunk/libbusiness-isbn-perl/t/isbn13.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/t/isbn13.t?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/t/isbn13.t (original)
+++ trunk/libbusiness-isbn-perl/t/isbn13.t Sat Nov 1 05:50:23 2008
@@ -24,7 +24,7 @@
my $BAD_CHECKSUM_ISBN = "9780596527244";
-my $BAD_GROUP_ISBN = "978-9990222576";
+my $BAD_GROUP_ISBN = "978-9997022576";
my $BAD_PUBLISHER_ISBN = "978-9165022222"; # 91-650-22222-? Sweden (stops at 649)
Modified: trunk/libbusiness-isbn-perl/t/png_barcode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-isbn-perl/t/png_barcode.t?rev=26425&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/t/png_barcode.t (original)
+++ trunk/libbusiness-isbn-perl/t/png_barcode.t Sat Nov 1 05:50:23 2008
@@ -3,11 +3,18 @@
use Test::More;
-my $loaded = eval { require GD::Barcode::EAN13 };
+my $loaded = eval { require GD::Barcode::EAN13 };
+
+my $GD_okay = eval { GD::Font->Small };
unless( $loaded )
{
plan( skip_all => "You need GD::Barcode::EAN13 to make barcodes" );
+ }
+elsif( not $GD_okay )
+ {
+ # This is something that should be caught in GD::Barcode::EAN13
+ plan( skip_all => "GD is missing GD::Font->Small. Can't continue." );
}
else
{
@@ -27,6 +34,8 @@
ok( $isbn->is_valid, "Valid ISBN" );
my $png = eval { $isbn->png_barcode };
- ok( defined $png, "PNG defined" );
+ my $at = $@;
+ ok( defined $png, "PNG defined for $num" );
+ diag( "Eval error for $num: $at" ) if length $at;
}
}
More information about the Pkg-perl-cvs-commits
mailing list