@@ -, +, @@ critic tests - Run $ TEST_QA=1 prove t/00-testcritic.t - Apply the patch - Run $ TEST_QA=1 prove t/00-testcritic.t - Sign off --- Koha/Patron.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -45,7 +45,7 @@ Returns a Koha::Patron object for this patron's guarantor sub guarantor { my ( $self ) = @_; - return undef unless $self->guarantorid(); + return unless $self->guarantorid(); return Koha::Patrons->find( $self->guarantorid() ); } @@ -79,7 +79,7 @@ sub siblings { my $guarantor = $self->guarantor; - return undef unless $guarantor; + return unless $guarantor; return Koha::Patrons->search( { --