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