From 642779f217785d594b5d11d0ecbef56d21b562bd Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 05:09:10 +1200 Subject: [PATCH] Bug 6679 - [SIGNED-OFF] fix 2 perlcritic violations in C4/BackgroundJob.pm "return" statement with explicit "undef" at line 234, column 5. See page 199 of PBP. (Severity: 5) "return" statement with explicit "undef" at line 256, column 9. See page 199 of PBP. (Severity: 5) Signed-off-by: Jonathan Druart Signed-off-by: Paul Poulain --- C4/BackgroundJob.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm index efea3f5a0f..6830565ce4 100644 --- a/C4/BackgroundJob.pm +++ b/C4/BackgroundJob.pm @@ -231,7 +231,7 @@ if the job status is not 'completed'. sub results { my $self = shift; - return undef unless $self->{'status'} eq 'completed'; + return unless $self->{'status'} eq 'completed'; return $self->{'results'}; } @@ -253,7 +253,7 @@ sub fetch { my $session = get_session($sessionID); my $prefix = "job_$jobID"; unless (defined $session->param($prefix)) { - return undef; + return; } my $self = $session->param($prefix); bless $self, $class; -- 2.39.5