r16129 - in /trunk/libbusiness-isbn-perl: Changes META.yml Makefile.PL debian/changelog lib/ISBN.pm t/png_barcode.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Mar 1 22:35:07 UTC 2008
Author: gregoa-guest
Date: Sat Mar 1 22:35:06 2008
New Revision: 16129
URL: http://svn.debian.org/wsvn/?sc=1&rev=16129
Log:
New upstream release.
Modified:
trunk/libbusiness-isbn-perl/Changes
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/t/png_barcode.t
Modified: trunk/libbusiness-isbn-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/Changes?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/Changes (original)
+++ trunk/libbusiness-isbn-perl/Changes Sat Mar 1 22:35:06 2008
@@ -1,6 +1,9 @@
Revision history for Perl extension Business::ISBN.
-$Revision: 2.12 $
-$Id: Changes,v 2.12 2007/10/02 08:17:39 comdog Exp $
+$Revision: 2.13 $
+$Id: Changes,v 2.13 2007/10/27 07:48:50 comdog Exp $
+
+2.03 - Sat Oct 27 02:48:15 2007
+ * adjustments to make png_barcode.t actually work (RT #30291)
2.03 - Tue Oct 2 03:17:34 2007
* Fixed minor distro problems and bumped to release version 2.03
Modified: trunk/libbusiness-isbn-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/META.yml?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/META.yml (original)
+++ trunk/libbusiness-isbn-perl/META.yml Sat Mar 1 22:35:06 2008
@@ -1,9 +1,9 @@
--- #YAML:1.0
name: Business-ISBN
-version: 2.03
+version: 2.03_01
abstract: Parse and validate ISBNs
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+generated_by: ExtUtils::MakeMaker version 6.36
distribution_type: module
requires:
Business::ISBN::Data: 1.15
Modified: trunk/libbusiness-isbn-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/Makefile.PL?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/Makefile.PL (original)
+++ trunk/libbusiness-isbn-perl/Makefile.PL Sat Mar 1 22:35:06 2008
@@ -1,4 +1,6 @@
-# $Id: Makefile.PL,v 2.4 2007/10/02 08:13:37 comdog Exp $
+# $Id: Makefile.PL,v 2.5 2007/10/27 07:43:55 comdog Exp $
+require 5.006;
+
use ExtUtils::MakeMaker;
eval "use Test::Manifest 1.14";
@@ -21,6 +23,5 @@
'lib/ISBN13.pm' => '$(INST_LIBDIR)/ISBN13.pm',
},
-
clean => { FILES => '*.bak Business-*' },
);
Modified: trunk/libbusiness-isbn-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/debian/changelog?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/debian/changelog (original)
+++ trunk/libbusiness-isbn-perl/debian/changelog Sat Mar 1 22:35:06 2008
@@ -1,12 +1,13 @@
-libbusiness-isbn-perl (2.03-2) UNRELEASED; urgency=low
+libbusiness-isbn-perl (2.03.01-1) UNRELEASED; urgency=low
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed:
Homepage pseudo-field (Description); XS-Vcs-Svn fields.
* debian/rules: delete /usr/lib/perl5 only if it exists (closes: #467697).
* debian/watch: use dist-based URL.
+ * New upstream release.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:27:37 +0200
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sat, 01 Mar 2008 23:34:26 +0100
libbusiness-isbn-perl (2.03-1) unstable; urgency=low
Modified: trunk/libbusiness-isbn-perl/lib/ISBN.pm
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/lib/ISBN.pm?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/lib/ISBN.pm (original)
+++ trunk/libbusiness-isbn-perl/lib/ISBN.pm Sat Mar 1 22:35:06 2008
@@ -1,5 +1,5 @@
-# $Revision: 2.14 $
-# $Id: ISBN.pm,v 2.14 2007/10/02 08:13:37 comdog Exp $
+# $Revision: 2.15 $
+# $Id: ISBN.pm,v 2.15 2007/10/27 07:43:55 comdog Exp $
package Business::ISBN;
use strict;
@@ -108,7 +108,7 @@
);
};
-$VERSION = "2.03";
+$VERSION = "2.03_01";
sub INVALID_PREFIX () { -4 };
sub INVALID_GROUP_CODE () { -2 };
@@ -577,7 +577,7 @@
}
my $image = GD::Barcode::EAN13->new($ean)->plot->png;
-
+
return $image;
}
Modified: trunk/libbusiness-isbn-perl/t/png_barcode.t
URL: http://svn.debian.org/wsvn/trunk/libbusiness-isbn-perl/t/png_barcode.t?rev=16129&op=diff
==============================================================================
--- trunk/libbusiness-isbn-perl/t/png_barcode.t (original)
+++ trunk/libbusiness-isbn-perl/t/png_barcode.t Sat Mar 1 22:35:06 2008
@@ -1,26 +1,32 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
-my $class = 'Business::ISBN';
+my $loaded = eval { require GD::Barcode::EAN13 };
-use_ok( $class );
-
-ok( defined &Business::ISBN::png_barcode, "Method defined" );
-
-foreach my $num ( qw( 0596527241 9780596527242 ) )
+unless( $loaded )
{
- my $isbn = Business::ISBN->new( $num );
- isa_ok( $isbn, $class );
+ plan( skip_all => "You need GD::Barcode::EAN13 to make barcodes" );
+ }
+else
+ {
+ plan( tests => 8 );
- ok( $isbn->is_valid, "Valid ISBN" );
+ my $class = 'Business::ISBN';
- SKIP: {
- skip "Need GD::Barcode::EAN13", 2,
- unless eval "use GD::Barcode::EAN13";
-
+ use_ok( $class );
+
+ ok( defined &Business::ISBN::png_barcode, "Method defined" );
+
+ foreach my $num ( qw( 0596527241 9780596527242 ) )
+ {
+ my $isbn = Business::ISBN->new( $num );
+ isa_ok( $isbn, $class );
+
+ ok( $isbn->is_valid, "Valid ISBN" );
+
my $png = eval { $isbn->png_barcode };
ok( defined $png, "PNG defined" );
}
- }
+ }
More information about the Pkg-perl-cvs-commits
mailing list