Change 28481 by [EMAIL PROTECTED] on 2006/07/05 02:31:06
Subject: [PATCH] RE: [PATCH] threads 1.33
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Message-id: <[EMAIL PROTECTED]>
Date: Tue, 04 Jul 2006 17:18:45 -0700
exiting from threads works differently on VMS
Affected files ...
... //depot/perl/ext/threads/t/exit.t#2 edit
Differences ...
==== //depot/perl/ext/threads/t/exit.t#2 (text) ====
Index: perl/ext/threads/t/exit.t
--- perl/ext/threads/t/exit.t#1~28475~ 2006-07-04 02:37:10.000000000 -0700
+++ perl/ext/threads/t/exit.t 2006-07-04 19:31:06.000000000 -0700
@@ -239,9 +239,15 @@
# Check termination warning concerning running threads
$SIG{'__WARN__'} = sub {
my $msg = shift;
- ok($msg =~ /1 running and unjoined/, '1 running and unjoined');
- ok($msg =~ /2 finished and unjoined/, '2 finished and unjoined');
- ok($msg =~ /3 running and detached/, '3 finished and detached');
+ if ($^O eq 'VMS') {
+ ok($msg =~ /0 running and unjoined/, '0 running and unjoined (VMS)');
+ ok($msg =~ /3 finished and unjoined/, '3 finished and unjoined (VMS)');
+ ok($msg =~ /0 running and detached/, '0 finished and detached (VMS)');
+ } else {
+ ok($msg =~ /1 running and unjoined/, '1 running and unjoined');
+ ok($msg =~ /2 finished and unjoined/, '2 finished and unjoined');
+ ok($msg =~ /3 running and detached/, '3 finished and detached');
+ }
};
threads->create(sub { sleep(100); });
End of Patch.
