Fixed stupid perl warning.
git-svn-id: svn://10.0.0.236/trunk@51221 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -577,7 +577,9 @@ while (@row = FetchSQLData()) {
|
||||
next;
|
||||
}
|
||||
my $value = shift @row;
|
||||
|
||||
if (!defined $value) {
|
||||
next;
|
||||
}
|
||||
if ($::needquote{$c}) {
|
||||
$value = html_quote($value);
|
||||
} else {
|
||||
|
||||
Reference in New Issue
Block a user