Make Dwarn output all arguments even in scalar context

[p5sagit/Data-Dumper-Concise.git] / lib / Data / Dumper / Concise / Sugar.pm

diff --git a/lib/Data/Dumper/Concise/Sugar.pm b/lib/Data/Dumper/Concise/Sugar.pm
index b37cff4..fa65682 100644 (file)
--- a/lib/Data/Dumper/Concise/Sugar.pm
+++ b/lib/Data/Dumper/Concise/Sugar.pm
@@ -12,7 +12,7 @@ BEGIN { @ISA = qw(Exporter) }
    $Ddie $DdieN Ddie DdieS DdieL DdieN DdieD
 );
 
-sub Dwarn { return DwarnL(@_) if wantarray; DwarnS($_[0]) }
+sub Dwarn { DwarnL(@_); return wantarray ? @_ : $_[0] }
 
 our $Dwarn = \&Dwarn;
 our $DwarnN = \&DwarnN;
@@ -29,7 +29,7 @@ sub DwarnN ($) {
 
 sub DwarnF (&@) { my $c = shift; warn &Data::Dumper::Concise::DumperF($c, @_); @_ }
 
-sub Ddie { DdieL(@_) if wantarray; DdieS($_[0]) }
+sub Ddie { DdieL(@_); return wantarray ? @_ : $_[0] }
 
 our $Ddie = \&Ddie;
 our $DdieN = \&DdieN;