always run finally blocks no matter how we leave the try block (RT #112099)

[p5sagit/Try-Tiny.git] / t / global_destruction_forked.t

diff --git a/t/global_destruction_forked.t b/t/global_destruction_forked.t
index a533000..05c35e9 100644 (file)
--- a/t/global_destruction_forked.t
+++ b/t/global_destruction_forked.t
@@ -18,15 +18,15 @@ use Try::Tiny;
   package WithFinally;
   use Try::Tiny;
 
+  our $_in_destroy;
   sub DESTROY {
+    local $_in_destroy = 1;
     try {}
     finally {};
     return;
   }
 }
 
-my $parent = $$;
-
 try {
   my $pid = fork;
   unless ($pid) {
@@ -52,6 +52,6 @@ try {
   waitpid $pid, 0;
   is $?, 0, 'nested try in cleanup after fork does not maintain outer finally block';
 }
-finally { exit 1 if $parent != $$ };
+finally { exit 1 if $WithFinally::_in_destroy };
 
 pass("Didn't just exit");