From 31086ad800b2e2e09dbc22e87d1a052370b78956 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Slaven=20Rezi=C4=87?= Date: Sat, 25 Nov 2023 22:13:48 +0100 Subject: [PATCH] producer Dumper: fix NULL handling for strings (#163) --- lib/SQL/Translator/Producer/Dumper.pm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lib/SQL/Translator/Producer/Dumper.pm b/lib/SQL/Translator/Producer/Dumper.pm index f5d1b42e..9a6a7a3a 100644 --- a/lib/SQL/Translator/Producer/Dumper.pm +++ b/lib/SQL/Translator/Producer/Dumper.pm @@ -232,17 +232,13 @@ for my $table ( @tables ) { my @vals; for my $fld ( @{ $table->{'fields'} } ) { my $val = $rec->{ $fld }; - if ( $table->{'types'}{ $fld } eq 'string' ) { - if ( defined $val ) { + if ( defined $val ) { + if ( $table->{'types'}{ $fld } eq 'string' ) { $val =~ s/'/\\'/g; $val = qq['$val'] } - else { - $val = qq['']; - } - } - else { - $val = defined $val ? $val : $mysql_loadfile ? '\N' : 'NULL'; + } else { + $val = $mysql_loadfile ? '\N' : 'NULL'; } push @vals, $val; }