| Subject: | as_string incorrectly format publisher code |
I discovered that version 2.03 with Bussiness::ISBN::Data version 1.17
incorrectly format publisher code:
Correct ISBN Wrong ISBN printed by as_string
================= =========================
978-0-88986-695-9 <> 978-0-8898-6695-9
978-3-86541-216-4 <> 978-3-8654-1216-4
978-80-7043-554-0 <> 978-80-704-3554-0
978-80-7355-077-6 <> 978-80-735-5077-6
978-80-8070-735-4 <> 978-80-807-0735-4
978-80-86583-12-9 <> 978-80-865-8312-9
978-80-86742-00-7 <> 978-80-867-4200-7
978-80-969243-7-0 <> 978-80-969-2437-0
978-960-6766-23-7 <> 978-960-67-6623-7
978-973-667-260-6 <> 978-973-66-7260-6
978-973-739-423-1 <> 978-973-73-9423-1
Example test script is attached.
| Subject: | test-isbn.pl |
#!/usr/bin/perl -w
use strict;
use Business::ISBN;
my @isbn = (
'978-0-88986-695-9',
'978-3-86541-216-4',
'978-80-7043-554-0',
'978-80-7355-077-6',
'978-80-8070-735-4',
'978-80-86583-12-9',
'978-80-86742-00-7',
'978-80-969243-7-0',
'978-960-6766-23-7',
'978-973-667-260-6',
'978-973-739-423-1',
);
foreach my $isbn (@isbn) {
my $isbn_object = Business::ISBN->new($isbn);
if ($isbn ne $isbn_object->as_string) {
print "$isbn <> ".$isbn_object->as_string."\n";
};
};