Skip to content
Snippets Groups Projects
Commit 5fa664ad authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

get rid of warning

parent 16348f0c
Branches
No related tags found
No related merge requests found
...@@ -200,7 +200,7 @@ sub desc ...@@ -200,7 +200,7 @@ sub desc
# my @desc_columns= qw(Field Type Null Key Default Extra); # my @desc_columns= qw(Field Type Null Key Default Extra);
while (defined (my @x= $sth->fetchrow_array())) while (my @x= $sth->fetchrow_array())
{ {
last unless (@x); last unless (@x);
# print "x: ", Dumper (\@x); # if ($show_fetched); # print "x: ", Dumper (\@x); # if ($show_fetched);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment