percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Seralize empty list as undef.

Browse Source
This commit is contained in:
Daniel Nichter
2013-02-18 12:51:28 -07:00
parent 97f963c7f7
commit 6d1c96e445
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Quoter.pm
View File

@@ -161,7 +161,7 @@ sub join_quote {
sub serialize_list { sub serialize_list {
my ( $self, @args ) = @_; my ( $self, @args ) = @_;
PTDEBUG && _d('Serializing', Dumper(\@args)); PTDEBUG && _d('Serializing', Dumper(\@args));
die "Cannot serialize an empty array" unless scalar @args; return unless @args;
my @parts; my @parts;
foreach my $arg ( @args ) { foreach my $arg ( @args ) {

6
t/lib/Quoter.t
View File

@@ -126,6 +126,12 @@ is( $q->join_quote('`db`', '`foo`.`tbl`'), '`foo`.`tbl`', 'join_merge(`db`, `foo
# (de)serialize_list # (de)serialize_list
# ########################################################################### # ###########################################################################
is(
$q->serialize_list( () ),
undef,
'Serialize empty list returns undef'
);
binmode(STDOUT, ':utf8') binmode(STDOUT, ':utf8')
or die "Can't binmode(STDOUT, ':utf8'): $OS_ERROR"; or die "Can't binmode(STDOUT, ':utf8'): $OS_ERROR";
binmode(STDERR, ':utf8') binmode(STDERR, ':utf8')