Bug 231691: fix used only once error in Perl 5.00503

r= bbaetz, a= justdave

diff --git a/checksetup.pl b/checksetup.pl
index 4dc2bf53fa9d7ad92fe1260995443225c32ac500..2a6a6b0197fce16cb00c764c740a6377b8fe3613 100755 (executable)
--- 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;
 }