From 340ba63758a2f24ccf84a4d62adffb9a3cf3bef2 Mon Sep 17 00:00:00 2001
From: Jared Camins-Esakov <jcamins@cpbibliography.com>
Date: Thu, 13 Sep 2012 13:39:13 -0400
Subject: [PATCH] Bug 7417 follow-up: fix a perlcritic violation

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 Koha/Authority.pm                        | 2 +-
 Koha/Filter/MARC/EmbedSeeFromHeadings.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Koha/Authority.pm b/Koha/Authority.pm
index b64f8ded2b..b07db92895 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,
diff --git a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm b/Koha/Filter/MARC/EmbedSeeFromHeadings.pm
index ea7e38b2dd..fc35a74313 100644
--- a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm
+++ b/Koha/Filter/MARC/EmbedSeeFromHeadings.pm
@@ -54,7 +54,7 @@ sub filter {
     my $record = shift;
     my $newrecord;
 
-    return undef unless defined $record;
+    return unless defined $record;
 
     if (ref $record eq 'ARRAY') {
         my @recarray;
-- 
2.39.5