[open-ils-commits] [GIT] Evergreen ILS branch master updated. dc7ec6cfb60d66150ad43d4157a63ea739667217

[Evergreen Git]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Evergreen ILS".

The branch, master has been updated
       via  dc7ec6cfb60d66150ad43d4157a63ea739667217 (commit)
      from  46a7817d1339487bacf6f056be1a8507a7bca9bf (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit dc7ec6cfb60d66150ad43d4157a63ea739667217
Author: Bill Erickson <berick at esilibrary.com>
Date:   Tue Sep 3 16:15:21 2013 -0400

    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 <berick at esilibrary.com>
    Signed-off-by: Jason Stephenson <jstephenson at mvlc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Normalize.pm
index e147f8e..ac82ba4 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+</></go;

-----------------------------------------------------------------------

Summary of changes:
 .../src/perlmods/lib/OpenILS/Utils/Normalize.pm    |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Evergreen ILS