@@ -, +, @@ C4/Barcodes.pm - "return" statement with explicit "undef" at line 57, column 2. See page 199 of PBP. (Severity: 5) --- C4/Barcodes.pm | 16 ++++++++-------- 1 files changed, 8 insertions(+), 8 deletions(-) --- a/C4/Barcodes.pm +++ a/C4/Barcodes.pm @@ -54,7 +54,7 @@ sub initial { return '0000001'; } sub width { - return undef; + return; } sub process_head { # (self,head,whole,specific) my $self = shift; @@ -128,7 +128,7 @@ sub next_value { my ($head,$incr,$tail) = $self->parse($max); # for incremental, you'd get ('',the_whole_barcode,'') unless (defined $incr) { warn "No incrementing part of barcode ($max) returned by parse."; - return undef; + return; } my $x = length($incr); # number of digits $incr =~ /^9+$/ and $x++; # if they're all 9's, we need an extra. @@ -144,17 +144,17 @@ sub next_value { return $next_value; } sub next { - my $self = shift or return undef; + my $self = shift or return; (@_) and $self->{next} = shift; return $self->{next}; } sub previous { - my $self = shift or return undef; + my $self = shift or return; (@_) and $self->{previous} = shift; return $self->{previous}; } sub serial { - my $self = shift or return undef; + my $self = shift or return; (@_) and $self->{serial} = shift; return $self->{serial}; } @@ -190,11 +190,11 @@ sub new { $autoBarcodeType =~ s/^.*:://; # in case we get C4::Barcodes::incremental, we just want 'incremental' unless ($autoBarcodeType) { carp "No autoBarcode format found."; - return undef; + return; } unless (defined $types->{$autoBarcodeType}) { carp "The autoBarcode format '$autoBarcodeType' is unrecognized."; - return undef; + return; } carp "autoBarcode format = $autoBarcodeType" if $debug; my $self; @@ -225,7 +225,7 @@ sub new { return $self; } carp "Failed new C4::Barcodes::$autoBarcodeType"; - return undef; + return; } sub new_object { --