From: Vincent Pit <vince@profvince.com>
Date: Thu, 25 Aug 2011 09:43:07 +0000 (+0200)
Subject: Clean up _clean_msg()
X-Git-Tag: v0.10~8
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=commitdiff_plain;h=918d8632f8b6c7c798954838357f413179448442

Clean up _clean_msg()
---

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>