From 77372548f6b86ad0d6bf10c3474679fac30e62a2 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 05:09:10 +1200 Subject: [PATCH] Bug 6679 - fix 2 perlcritic violations in C4/BackgroundJob.pm Content-Type: text/plain; charset="utf-8" http://koha-community.org "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) --- C4/BackgroundJob.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm index efea3f5..6830565 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; -- 1.7.2.5