When a pseudo-fork ends, execute the cleanup hooks after global END blocks

[perl/modules/Thread-Cleanup.git] / t / 30-pseudoforks.t

diff --git a/t/30-pseudoforks.t b/t/30-pseudoforks.t
index 2247c4091311ae1cefc73f68b1bb1665e869e26b..fc9e417bdc607c4782d66a5242456bde94c64bcd 100644 (file)
--- a/t/30-pseudoforks.t
+++ b/t/30-pseudoforks.t
@@ -38,7 +38,7 @@ if ($pid) {
  Thread::Cleanup::register {
   pass               'pseudo-fork destructor called';
   is $local_end,  1, 'pseudo-fork destructor called after local END block';
-  is $global_end, 0, 'pseudo-fork destructor called before global END block';
+  is $global_end, 1, 'pseudo-fork destructor called after global END block';
   is $gd,         0, 'pseudo-fork destructor called before global destruction';
  };