diff options
| author | Olaf Alders <olaf@wundersolutions.com> | 2021-03-02 14:25:08 -0500 |
|---|---|---|
| committer | Olaf Alders <olaf@wundersolutions.com> | 2021-03-03 10:14:59 -0500 |
| commit | 3bcb6177247973c4286371e4a3d04291b9668c3e (patch) | |
| tree | a8af16d2078996635cdbea9bb6ac5d6baa8fbf79 | |
| parent | cbd2aee67eb334ca3e3bc600a64a1573369e09cd (diff) | |
| download | uri-3bcb6177247973c4286371e4a3d04291b9668c3e.tar.gz | |
Tidy whitespace in isbn.pm
| -rw-r--r-- | lib/URI/urn/isbn.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/URI/urn/isbn.pm b/lib/URI/urn/isbn.pm index 7d64186..dc2395f 100644 --- a/lib/URI/urn/isbn.pm +++ b/lib/URI/urn/isbn.pm @@ -11,13 +11,13 @@ use Carp qw(carp); BEGIN { require Business::ISBN; - + local $^W = 0; # don't warn about dev versions, perl5.004 style - warn "Using Business::ISBN version " . Business::ISBN->VERSION . + warn "Using Business::ISBN version " . Business::ISBN->VERSION . " which is deprecated.\nUpgrade to Business::ISBN version 2\n" if Business::ISBN->VERSION < 2; } - + sub _isbn { my $nss = shift; $nss = $nss->nss if ref($nss); @@ -61,7 +61,7 @@ sub isbn_group_code { sub isbn_country_code { my $name = (caller(0))[3]; $name =~ s/.*:://; carp "$name is DEPRECATED. Use isbn_group_code instead"; - + no strict 'refs'; &isbn_group_code; } @@ -74,7 +74,7 @@ my $isbn13_method = do { sub isbn13 { my $isbn = shift->_isbn || return undef; - + # Business::ISBN 1.x didn't put hyphens in the EAN, and it was just a string # Business::ISBN 2.0 doesn't do EAN, but it does ISBN-13 objects # and it uses the hyphens, so call as_string with an empty anon array |