gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 16635: t/00-load.t warning from C4/Barcodes/hbyymmincr.pm 

According to http://perldoc.perl.org/vars.html, "our" should
be a reasonable substitute for the "use vars". By declaring as
"our", and removing the INIT, prove t/00-load will no longer
generate a warning about INIT for the C4/Barcodes/hbyymmincr.pm
module.

TEST PLAN
---------
1) prove t/00-load.t
   -- warnings about INIT for hbyymmincr
2) prove `git grep -l hbyymmincr | grep [.]t$`
   -- should all run okay
3) apply patch
4) repeat steps 1 and 2
   -- warning should be gone, and everything else run okay
5) run koha qa test tools

Signed-off-by: Srdjan <srdjan@catalyst.net.nz>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit fd152d9e95)
Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
(cherry picked from commit 7fbfa01f78)
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
This commit is contained in:
Mark Tompsett 2016-06-01 20:41:27 -04:00 committed by Julian Maurice
parent 4f8e1dc5d8
commit 8a5e451e7f
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C4/Barcodes/hbyymmincr.pm
View File

@ -29,17 +29,14 @@ use Koha::DateUtils qw( dt_from_string output_pref );
use vars qw($VERSION @ISA);
use vars qw($debug $cgi_debug); # from C4::Debug, of course
use vars qw($branch $width);
our $branch = '';
our $width = 4; # FIXME: 4 is too small for sizeable or multi-branch libraries.
BEGIN {
$VERSION = 3.07.00.049;
@ISA = qw(C4::Barcodes);
}
INIT {
$branch = '';
$width = 4; # FIXME: 4 is too small for sizeable or multi-branch libraries.
}
# Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number,
# increment resets yearly -fbcit