diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2006-07-04 10:18:45 -0700 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-07-05 02:31:06 +0000 |
| commit | fe78ea027a72ff06add9150128e93d05e41f864b (patch) | |
| tree | 51f879a241a2a498f331430e9e9ffb03a4e6eed2 /ext | |
| parent | a739f89f69ff07be21aa7ae25da7ff1c8e0c1c65 (diff) | |
| download | perl-fe78ea027a72ff06add9150128e93d05e41f864b.tar.gz | |
RE: [PATCH] threads 1.33
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-id: <20060704171845.fb30e530d17747c2b054d625b8945d88.f0db2cab53.wbe@email.secureserver.net>
exiting from threads works differently on VMS
p4raw-id: //depot/perl@28481
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/threads/t/exit.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/ext/threads/t/exit.t b/ext/threads/t/exit.t index c0621c7078..fa395ee2b7 100644 --- a/ext/threads/t/exit.t +++ b/ext/threads/t/exit.t @@ -239,9 +239,15 @@ foreach my $die (@exit_types) { # 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); }); |