From a6c9b0f666104cb26e64cb9d86c68b922dd67b3b Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Mon, 5 Jan 2009 16:33:57 -0600
Subject: [PATCH] bug 2505: enable warnings for labels/label-print-pdf.pl

Signed-off-by: Henri-Damien LAURENT <henridamien@koha-fr.org>
---
 labels/label-print-pdf.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/labels/label-print-pdf.pl b/labels/label-print-pdf.pl
index 8855f9fa89..c66162b7bf 100755
--- a/labels/label-print-pdf.pl
+++ b/labels/label-print-pdf.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+use warnings;
 use CGI;
 use C4::Labels;
 use C4::Auth;
@@ -147,7 +148,6 @@ if ( $DEBUG && $profile->{'prof_id'} ) {
     warn "No profile associated so no adjustment applied.";
 }
 
-my $item;
 my ( $i, $i2 );    # loop counters
 
 #warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY";
@@ -180,7 +180,7 @@ else {
 #    main foreach loop
 #
 
-foreach $item (@resultsloop) {
+foreach my $item (@resultsloop) {
     warn "Label parameters: xpos=$x_pos, ypos=$y_pos, lblwid=$label_width, lblhig=$label_height" if $DEBUG;
     if ( $printingtype eq 'BAR' ) {
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
-- 
2.39.5