From: Dave Rolsky <autarch@urth.org>
Date: Wed, 26 Aug 2009 21:42:51 +0000 (-0500)
Subject: Make debugging output for MOP_PRINT_SOURCE a little nicer
X-Git-Tag: 0.92_01~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd010527710e28200b26d7d24ec96b1bbef9cb7d;p=gitmo%2FClass-MOP.git

Make debugging output for MOP_PRINT_SOURCE a little nicer
---

diff --git a/lib/Class/MOP/Method/Generated.pm b/lib/Class/MOP/Method/Generated.pm
index 1481e96..e9b4ed3 100644
--- a/lib/Class/MOP/Method/Generated.pm
+++ b/lib/Class/MOP/Method/Generated.pm
@@ -50,7 +50,7 @@ sub _eval_closure {
                 } keys %$__captures
             ),
             $_[2];
-        print STDERR $_[0]->name, ' ', $source, "\n" if _PRINT_SOURCE;
+        print STDERR "\n", $_[0]->name, ":\n", $source, "\n" if _PRINT_SOURCE;
         $code = eval $source;
         $@;
     };