From 3bcb6177247973c4286371e4a3d04291b9668c3e Mon Sep 17 00:00:00 2001 From: Olaf Alders Date: Tue, 2 Mar 2021 14:25:08 -0500 Subject: Tidy whitespace in isbn.pm --- lib/URI/urn/isbn.pm | 10 +++++----- 1 file 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 -- cgit v1.2.1