X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=blobdiff_plain;f=t%2F30-pseudoforks.t;fp=t%2F30-pseudoforks.t;h=fc9e417bdc607c4782d66a5242456bde94c64bcd;hp=2247c4091311ae1cefc73f68b1bb1665e869e26b;hb=cc6a2e4288f5e12c19ba7d09e9c82e7f5f1e8bfa;hpb=37553cfe3ca2a0f8527eb53961b35ac5e157a3c6

diff --git a/t/30-pseudoforks.t b/t/30-pseudoforks.t
index 2247c40..fc9e417 100644
--- 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';
  };