From f397fff4b95c2df8a5b9c5ae93c1128539091b19 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Thu, 13 Sep 2012 13:39:13 -0400 Subject: [PATCH] Bug 7417 follow-up: fix a perlcritic violation --- Koha/Authority.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Koha/Authority.pm b/Koha/Authority.pm index b64f8de..b07db92 100644 --- a/Koha/Authority.pm +++ b/Koha/Authority.pm @@ -77,7 +77,7 @@ sub get_from_authid { my ($authtypecode, $marcxml) = $sth->fetchrow; my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8', (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))}; - return undef if ($@); + return if ($@); $record->encoding('UTF-8'); my $self = $class->SUPER::new( { authid => $authid, -- 1.7.2.5