diff options
author | Yorhel <git@yorhel.nl> | 2009-03-28 08:57:18 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-03-28 08:57:18 +0100 |
commit | 84a53570c59719834d1ba20aa3b535acad8a8852 (patch) | |
tree | 7e09175eb073f7db4bc97d58209384190de9b00b /lib | |
parent | b44d87829e693e7dbaff356af384ce7ec2633334 (diff) |
Fixed perl warning with the SQL debug output
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNDB/Util/LayoutHTML.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/VNDB/Util/LayoutHTML.pm b/lib/VNDB/Util/LayoutHTML.pm index 87155d96..fcd088a4 100644 --- a/lib/VNDB/Util/LayoutHTML.pm +++ b/lib/VNDB/Util/LayoutHTML.pm @@ -167,7 +167,7 @@ sub htmlFooter { lit "\n<!--\n SQL Queries:\n"; for (@{$self->{_YAWF}{DB}{queries}}) { my $q = !ref $_->[0] ? $_->[0] : - $_->[0][0].(exists $_->[0][1] ? ' | "'.join('", "', @{$_->[0]}[1..$#{$_->[0]}]).'"' : ''); + $_->[0][0].(exists $_->[0][1] ? ' | "'.join('", "', map defined()?$_:'NULL', @{$_->[0]}[1..$#{$_->[0]}]).'"' : ''); $q =~ s/^\s//g; lit sprintf " [%6.2fms] %s\n", $_->[1]*1000, $q; } |