From: Florian Ragwitz Date: Sun, 19 Oct 2008 07:50:00 +0000 (+0000) Subject: Remove unused inject_scope from method.t X-Git-Tag: 0.005000~60 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0be3860b25f7dd4c0a71775a4c561b95415e64c4;p=p5sagit%2FDevel-Declare.git Remove unused inject_scope from method.t --- diff --git a/t/method.t b/t/method.t index 9833e30..7335635 100644 --- a/t/method.t +++ b/t/method.t @@ -91,16 +91,6 @@ use Devel::Declare (); shadow(sub (&) { shift }); } } - - sub inject_scope { - $^H |= 0x120000; - $^H{DD_METHODHANDLERS} = Scope::Guard->new(sub { - my $linestr = Devel::Declare::get_linestr; - my $offset = Devel::Declare::get_linestr_offset; - substr($linestr, $offset, 0) = ';'; - Devel::Declare::set_linestr($linestr); - }); - } } my ($test_method1, $test_method2, @test_list);