[Bast-commits] r5056 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-11-05 18:57:58 +0000 (Wed, 05 Nov 2008)
New Revision: 5056

Modified:
   Devel-Declare/1.000/trunk/t/eval.t
Log:
Add a failing testcase for string eval mangling if there's a hints hash.

Modified: Devel-Declare/1.000/trunk/t/eval.t
===================================================================
--- Devel-Declare/1.000/trunk/t/eval.t	2008-11-05 16:19:37 UTC (rev 5055)
+++ Devel-Declare/1.000/trunk/t/eval.t	2008-11-05 18:57:58 UTC (rev 5056)
@@ -15,6 +15,8 @@
 
 use Devel::Declare 'method' => \&handle_method;
 
+BEGIN { $^H{foo} = 'bar' }
+
 eval "method bar { 42 }";
 diag $@ if $@;