X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDwarn.pm;h=bf45cb3b3d472a22f927e788465987987ef43a4a;hb=be8e0839f0100125bd4834794bfbca8c63707678;hp=abcd9cdd30668b8900bd3622139b2fee910e3375;hpb=5054642f6999a563ee8e12118eb89d9445f274a5;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Devel/Dwarn.pm b/lib/Devel/Dwarn.pm
index abcd9cd..bf45cb3 100644
--- a/lib/Devel/Dwarn.pm
+++ b/lib/Devel/Dwarn.pm
@@ -47,7 +47,7 @@ thing; for that we have C<Dwarn_only>:
 and C<DwarnS_only>:
 
   # only Dwarn the first item
-  my $data = Dwarn_only { $_->[0] } [ some_call(...) ];
+  my $data = DwarnS_only { $_->[0] } [ some_call(...) ];
 
 Another trick that is extremely useful when doing method chaining is the
 following: