X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FDDS.pm;h=6b4dde7408edccb01617e20927640588b2803a7a;hp=9a324495a74044099b986039bd9e912e9912ddd1;hb=afc8677b078de3f125147caf731bd298c8b6d04e;hpb=767c76dde72c46f46c5dc4526287b7bcd8ead962 diff --git a/lib/Devel/REPL/Plugin/DDS.pm b/lib/Devel/REPL/Plugin/DDS.pm index 9a32449..6b4dde7 100644 --- a/lib/Devel/REPL/Plugin/DDS.pm +++ b/lib/Devel/REPL/Plugin/DDS.pm @@ -1,3 +1,5 @@ +use strict; +use warnings; package Devel::REPL::Plugin::DDS; use Devel::REPL::Plugin; @@ -8,7 +10,7 @@ around 'format_result' => sub { my $self = shift; my @to_dump = @_; my $out; - if (@to_dump != 1 || ref $to_dump[0]) { + if (@to_dump > 1 || ref $to_dump[0]) { if (@to_dump == 1 && overload::Method($to_dump[0], '""')) { $out = "@to_dump"; } else {