use C4::Debug;
use Algorithm::CheckDigits;
+use Carp;
use vars qw($VERSION @ISA);
use vars qw($debug $cgi_debug); # from C4::Debug, of course
if ( $ean->is_valid($barcode) ) {
return ( '', $ean->basenumber($barcode), $ean->checkdigit($barcode) );
} else {
- die "$barcode not valid EAN-13 barcode";
+ carp "$barcode not valid EAN-13 barcode";
+ return ( '', $barcode, '' );
}
}