From dc7ec6cfb60d66150ad43d4157a63ea739667217 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 3 Sep 2013 16:15:21 -0400 Subject: [PATCH] LP#1220387 silence deprecation warning in Normalizer Avoid the following error: UNIVERSAL->import is deprecated and will be removed in a future perl at Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm line 6 Signed-off-by: Bill Erickson Signed-off-by: Jason Stephenson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm index e147f8ef0c..ac82ba4954 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm @@ -3,7 +3,7 @@ use strict; use warnings; use Unicode::Normalize; use Encode; -use UNIVERSAL qw/isa/; +use UNIVERSAL; use MARC::Record; use MARC::File::XML ( BinaryEncoding => 'UTF-8' ); use OpenILS::Application::AppUtils; @@ -111,7 +111,7 @@ sub _normalize_codes { # Assumes input is already in UTF-8. sub clean_marc { my $input = shift; - my $xml = decode_utf8((isa $input, 'MARC::Record') ? $input->as_xml_record() : $input); + my $xml = decode_utf8((UNIVERSAL::isa($input, 'MARC::Record')) ? $input->as_xml_record() : $input); $xml =~ s/\n//sog; $xml =~ s/^<\?xml.+\?\s*>//go; $xml =~ s/>\s+