X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstatement.t;h=35043b41dc528f79ab1965569293f60c9ff71612;hb=8343b16e878b4ba015aea44f095452ded06129a7;hp=bccc35fea755eecbe3b7f9f23bab6101ff9af929;hpb=022eb0ccc2f4226b13e399572f9df7326fb52e1e;p=p5sagit%2FDevel-Declare.git

diff --git a/t/statement.t b/t/statement.t
index bccc35f..35043b4 100644
--- a/t/statement.t
+++ b/t/statement.t
@@ -1,12 +1,14 @@
+use strict;
+use warnings;
 use Devel::Declare ();
-use Test::More qw(no_plan);
-use Scope::Guard;
+use Test::More;
 
 {
   package FoomHandlers;
 
   use strict;
   use warnings;
+  use B::Hooks::EndOfScope;
 
   our ($Declarator, $Offset);
 
@@ -80,13 +82,12 @@ use Scope::Guard;
   }
 
   sub inject_scope {
-    $^H |= 0x120000;
-    $^H{DD_FOOMHANDLERS} = Scope::Guard->new(sub {
+    on_scope_end {
       my $linestr = Devel::Declare::get_linestr;
       my $offset = Devel::Declare::get_linestr_offset;
       substr($linestr, $offset, 0) = ';';
       Devel::Declare::set_linestr($linestr);
-    });
+    };
   }
 
   package Foo;
@@ -111,3 +112,5 @@ use Scope::Guard;
 
   ::ok(1, 'Compiled as statement ok');
 }
+
+done_testing;