X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=blobdiff_plain;f=lib%2FSub%2FPrototype%2FUtil.pm;h=93efb1f1286ee4c28a4c64c664f3f1ed7731dd0b;hp=bfbd2a20b60129f898ba3db11df2495ddd794224;hb=918d8632f8b6c7c798954838357f413179448442;hpb=eb44d389e2988873318074f6fe1f090886e4beba

diff --git a/lib/Sub/Prototype/Util.pm b/lib/Sub/Prototype/Util.pm
index bfbd2a2..93efb1f 100644
--- a/lib/Sub/Prototype/Util.pm
+++ b/lib/Sub/Prototype/Util.pm
@@ -62,8 +62,10 @@ sub _check_ref {
 
 sub _clean_msg {
  my ($msg) = @_;
+
  $msg =~ s/(?:\s+called)?\s+at\s+.*$//s;
- return $msg;
+
+ $msg;
 }
 
 =head2 C<flatten $proto, @args>