[Moose-commits] r7743 - Class-MOP/trunk/lib/Class/MOP/Method

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-20 09:11:43 -0800 (Fri, 20 Feb 2009)
New Revision: 7743

Modified:
   Class-MOP/trunk/lib/Class/MOP/Method/Generated.pm
Log:
Even better, include the code that failed to compile in the error.


Modified: Class-MOP/trunk/lib/Class/MOP/Method/Generated.pm
===================================================================
--- Class-MOP/trunk/lib/Class/MOP/Method/Generated.pm	2009-02-20 17:09:13 UTC (rev 7742)
+++ Class-MOP/trunk/lib/Class/MOP/Method/Generated.pm	2009-02-20 17:11:43 UTC (rev 7743)
@@ -51,7 +51,7 @@
     my $__captures = $_[1];
 
     local $@;
-    eval join(
+    my $code = join(
         "\n",
         (
             map {
@@ -67,7 +67,9 @@
         ),
         $_[2]
     );
-    die $@ if $@;
+    eval $code;
+
+    die "$@\n$code" if $@;
 }
 
 sub _add_line_directive {