From: justdave%syndicomm.com <>
Date: Mon, 16 Feb 2004 03:46:42 +0000 (+0000)
Subject: Bug 231691: fix used only once error in Perl 5.00503
X-Git-Tag: bugzilla-2.16.5~6
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d1e08d208918df825a205a80ed24cb1957dd3e9a;p=thirdparty%2Fbugzilla.git

Bug 231691: fix used only once error in Perl 5.00503
r= bbaetz, a= justdave
---

diff --git a/checksetup.pl b/checksetup.pl
index 4dc2bf53fa..2a6a6b0197 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1611,6 +1611,7 @@ $table{tokens} =
 
 # Get a list of the existing tables (if any) in the database
 my @tables;
+my $zz = $DBI::VERSION; # mention it to eliminate "used only once" warning on perl 5.00503
 if ($DBI::VERSION < 1.20) {
     @tables = map { $_ =~ s/.*\.//; $_ } $dbh->tables;
 }