From 9a93db94b0d4a052c964cedea738524ec3be3b3b Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 13 Jun 2007 20:35:38 +0000
Subject: * fixed all warnings indicated by 'perl -w'

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1162 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/devel-tools/test-config-db.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'config-db/devel-tools')

diff --git a/config-db/devel-tools/test-config-db.pl b/config-db/devel-tools/test-config-db.pl
index c0d73d53..8a572e28 100755
--- a/config-db/devel-tools/test-config-db.pl
+++ b/config-db/devel-tools/test-config-db.pl
@@ -129,7 +129,7 @@ $metaDB->schemaChangeColumns('test2',
 							   'descr' => 'description:s.30' },
 							 $colDescrs);
 
-my @rows = $metaDB->_doSelect("SELECT * FROM test2");
+@rows = $metaDB->_doSelect("SELECT * FROM test2");
 foreach my $row (@rows) {
 	foreach my $r (keys %$row) {
 		print "$r = $row->{$r}\n";
-- 
cgit v1.2.3-55-g7522