diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-24 15:20:27 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-24 15:20:27 -0400 |
commit | a9e948362d1a3208328c81069e0a0b88825dfe0d (patch) | |
tree | dcc05ad4d2c126683e7d1e15a79da011854378cd /lib/Reply/Plugin/DataDumper.pm | |
parent | 87725010882774876b8497204659d502213aa3e3 (diff) | |
download | reply-a9e948362d1a3208328c81069e0a0b88825dfe0d.tar.gz reply-a9e948362d1a3208328c81069e0a0b88825dfe0d.zip |
dump nothing, not an empty string, if there is no result in DataDumper
Diffstat (limited to 'lib/Reply/Plugin/DataDumper.pm')
-rw-r--r-- | lib/Reply/Plugin/DataDumper.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/DataDumper.pm b/lib/Reply/Plugin/DataDumper.pm index 7ac6be4..55a85e1 100644 --- a/lib/Reply/Plugin/DataDumper.pm +++ b/lib/Reply/Plugin/DataDumper.pm @@ -30,7 +30,7 @@ sub new { sub mangle_result { my $self = shift; my (@result) = @_; - return Dumper(@result == 0 ? '' : @result == 1 ? $result[0] : \@result); + return Dumper(@result == 0 ? () : @result == 1 ? $result[0] : \@result); } 1; |