Changeset: 37bd050c9cda for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=37bd050c9cda
Modified Files:
clients/perl/MonetDB-CLI-MapiPP/MonetDB/CLI/MapiPP.pm
Branch: Feb2013
Log Message:
Don't return "undef" if 0.
This fixes bug 3235.
Thanks to Rémy Chibois for the report and the fix.
diffs (12 lines):
diff --git a/clients/perl/MonetDB-CLI-MapiPP/MonetDB/CLI/MapiPP.pm
b/clients/perl/MonetDB-CLI-MapiPP/MonetDB/CLI/MapiPP.pm
--- a/clients/perl/MonetDB-CLI-MapiPP/MonetDB/CLI/MapiPP.pm
+++ b/clients/perl/MonetDB-CLI-MapiPP/MonetDB/CLI/MapiPP.pm
@@ -14,7 +14,7 @@ sub unquote
{
my ($class, $v) = @_;
- return undef if !$v || $v eq 'NULL' || $v eq 'nil';
+ return undef if !defined($v) || $v eq 'NULL' || $v eq 'nil';
if ( $v =~ /^["']/) {
$v =~ s/^["']//;
_______________________________________________
checkin-list mailing list
[email protected]
http://mail.monetdb.org/mailman/listinfo/checkin-list
