From af96a8ead38462b1c75f5825f451d2c66d7bbe7e Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 21 Sep 2012 16:30:36 +0200
Subject: [PATCH] Bug 8523 follow-up fixing perlcritic

---
 C4/AuthoritiesMarc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 469911469a..2671cd4195 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -1312,7 +1312,7 @@ sub BuildAuthHierarchy{
     my $record = shift @_;
     my $class = shift @_;
     my $authid_constructed = shift @_;
-    return undef unless ($record && $record->field('001'));
+    return unless ($record && $record->field('001'));
     my $authid=$record->field('001')->data();
     my %cell;
     my $parents=""; my $children="";
-- 
2.20.1