X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise%2FSugar.pm;h=78b30452614d2e7bddd7bb3a325da029c596f9ed;hb=a57622546b320c091704b78b96e5fab754ee4dab;hp=f82754a249af945f1ceacfccb36c460034683c1e;hpb=2566c738d28b5c6fd48615bd8a7a297d3e92cffd;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Data/Dumper/Concise/Sugar.pm b/lib/Data/Dumper/Concise/Sugar.pm
index f82754a..78b3045 100644
--- a/lib/Data/Dumper/Concise/Sugar.pm
+++ b/lib/Data/Dumper/Concise/Sugar.pm
@@ -2,17 +2,19 @@ package Data::Dumper::Concise::Sugar;
 
 use 5.006;
 
+our $VERSION = '2.023';
+
 use Exporter ();
 use Data::Dumper::Concise ();
 
 BEGIN { @ISA = qw(Exporter) }
 
 @EXPORT = qw(
-   $Dwarn $DwarnN Dwarn DwarnS DwarnL DwarnN
+   $Dwarn $DwarnN Dwarn DwarnS DwarnL DwarnN DwarnF
    $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 +31,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;