Import Debian changes 0.50-1

libalgorithm-checkdigits-perl (0.50-1) unstable; urgency=low
.
  * New upstream version (Closes: #495190)

Changes

 Revision history for Perl extension CheckDigits.
 
+0.50  Fr 6. Jun 21:45:04 CEST 2008
+       - put $VERSION back into CheckDigits.pm
+
+0.49  Fr 16. Mai 22:54:43 CEST 2008
+       - CheckDigits/MXX_002.pm computes checkdigits for CAS registration
+         numbers with ten digits.
+
 0.48  Di 9. Okt 01:07:02 CEST 2007
 	- keep VERSION in Makefile.PL
 

CheckDigits.pm

@@ -28,6 +28,8 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
 our @EXPORT = qw( CheckDigits );
 
+our $VERSION = '0.50';
+
 my %methods = (
     'mbase-001'          => 'Algorithm::CheckDigits::MBase_001',
     'upc'                => 'Algorithm::CheckDigits::MBase_001',

CheckDigits/M97_002.pm

@@ -222,6 +222,7 @@ check number than using Math::BigInt.
 L<perl>,
 L<CheckDigits>,
 F<www.pruefziffernberechnung.de>,
-F<www.sic.ch/en/tkicch_home/tkicch_standardization/tkicch_financialinstitutions_ibanipi.htm>.
+F<www.sic.ch/en/tkicch_home/tkicch_standardization/
+tkicch_financialinstitutions_ibanipi.htm>.
 
 =cut

CheckDigits/MXX_002.pm

+# vim: set ts=4 sw=4 tw=78 et si:
 package Algorithm::CheckDigits::MXX_002;
 
 use 5.006;
@@ -18,15 +19,15 @@ sub new {
 
 sub is_valid {
     my ( $self, $number ) = @_;
-	if ($number =~ /^(\d{1,6}-?\d{2}-?)(\d)$/) {
+    if ( $number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/ ) {
         return 1 if ( $2 == $self->_compute_checkdigit($1) );
     }
-	return ''
+    return '';
 }    # is_valid()
 
 sub complete {
     my ( $self, $number ) = @_;
-	if ($number =~ /^\d{1,6}-?\d{2}-?$/) {
+    if ( $number =~ /^\d{1,7}-?\d{2}-?$/ ) {
         return $number . $self->_compute_checkdigit($number);
     }
     return '';
@@ -34,7 +35,7 @@ sub complete {
 
 sub basenumber {
     my ( $self, $number ) = @_;
-	if ($number =~ /^(\d{1,6}-?\d{2}-?)(\d)$/) {
+    if ( $number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/ ) {
         return $1 if ( $2 == $self->_compute_checkdigit($1) );
     }
     return '';
@@ -42,7 +43,7 @@ sub basenumber {
 
 sub checkdigit {
     my ( $self, $number ) = @_;
-	if ($number =~ /^(\d{1,6}-?\d{2}-?)(\d)$/) {
+    if ( $number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/ ) {
         return $2 if ( $2 == $self->_compute_checkdigit($1) );
     }
     return '';
@@ -161,11 +162,15 @@ Mathias Weidner, E<lt>mathias@weidner.in-bad-schmiedeberg.deE<gt>
 Aaron W. West pointed me to a fault in the computing of the check
 digit.
 
+HERMIER Christophe made me aware that CAS is now assigning 10-digit CAS
+Registry Numbers (F<http://www.cas.org/newsevents/10digitrn.html>)
+
 =head1 SEE ALSO
 
 L<perl>,
 L<CheckDigits>,
 F<www.pruefziffernberechnung.de>,
 F<www.cas.org>
+F<http://www.cas.org/expertise/cascontent/registry/checkdig.html>
 
 =cut

META.yml

 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Algorithm-CheckDigits
-version:      0.48
-version_from: 
+version:      0.50
+version_from: CheckDigits.pm
 installdirs:  site
 requires:
 

Makefile.PL

@@ -6,7 +6,7 @@ use ExtUtils::MakeMaker;
 # the contents of the Makefile that is written.
 WriteMakefile(
     'NAME'		=> 'Algorithm::CheckDigits',
-    'VERSION'		=> '0.48',
+    'VERSION_FROM'	=> 'CheckDigits.pm', # finds $VERSION
     'PREREQ_PM'		=> {}, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM => 'CheckDigits.pm', # retrieve abstract from module

debian/changelog

+libalgorithm-checkdigits-perl (0.50-1) unstable; urgency=low
+
+  * New upstream version (Closes: #495190)
+
+ -- Jose Parrella <bureado@debian.org>  Sun, 30 Nov 2008 21:00:18 -0430
+
 libalgorithm-checkdigits-perl (0.48-1) unstable; urgency=low
 
   * Initial Release. (Closes: #461628)

debian/control

@@ -4,7 +4,7 @@ Priority: optional
 Build-Depends: debhelper (>= 5.0.0)
 Build-Depends-Indep: perl (>= 5.8.8-12)
 Maintainer: Jose Parrella <bureado@debian.org>
-Standards-Version: 3.7.3
+Standards-Version: 3.8.0
 Homepage: http://search.cpan.org/dist/Algorithm-CheckDigits/
 
 Package: libalgorithm-checkdigits-perl

t/valid.data

@@ -219,8 +219,9 @@ use vars qw(@testcases);
 	           '2406055684D<6810203<0705109<4' ],
 
 	# MXX-002
-	[ 'cas', '1333-74-0', '1333-74-', '0',
-	         '1333-74-1' ],
+	[ 'cas', '1333-74-0',    '1333-74-',    '0', '1333-74-1'    ],
+	[ 'cas', '107-07-3',     '107-07-',     '3', '107-07-1'     ],
+	[ 'cas', '1021205-92-4', '1021205-92-', '4', '1021205-92-1' ],
 
 	# MXX-003
 	[ 'dem', 'GD0645027K1', 'GD0645027K', '1',