From: Florian Ragwitz <rafl@debian.org>
Date: Wed, 5 Nov 2008 18:57:58 +0000 (+0000)
Subject: Add a failing testcase for string eval mangling if there's a hints hash.
X-Git-Tag: 0.005000~33
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec2166f5f7ba30af7318543e2afd012a7b86e5c3;p=p5sagit%2FDevel-Declare.git

Add a failing testcase for string eval mangling if there's a hints hash.
---

diff --git a/t/eval.t b/t/eval.t
index fbcc6ca..13b2d72 100644
--- a/t/eval.t
+++ b/t/eval.t
@@ -15,6 +15,8 @@ sub handle_method {
 
 use Devel::Declare 'method' => \&handle_method;
 
+BEGIN { $^H{foo} = 'bar' }
+
 eval "method bar { 42 }";
 diag $@ if $@;