From af96a8ead38462b1c75f5825f451d2c66d7bbe7e Mon Sep 17 00:00:00 2001 From: Paul Poulain 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.39.5