Modified (de)serialize_list to handle undefs and empty string elements better.

This commit is contained in:
Brian Fraser
2011-12-29 17:22:17 -03:00
parent 6088ffa43d
commit 1f06ea093a
2 changed files with 16 additions and 16 deletions

View File

@@ -175,7 +175,11 @@ SKIP: {
$sth->execute($test_index, $ser);
$selsth->execute($test_index);
my $flat_string = "[" . join("][", @{$serialize_tests[$test_index]}) . "]";
my $flat_string = "["
. join( "][",
map { defined($_) ? $_ : '' } @{$serialize_tests[$test_index]}
)
. "]";
$flat_string =~ s/\n/\\n/g;
is_deeply(