This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
authorNicholas Clark <nick@ccl4.org>
Tue, 13 Jan 2004 23:07:41 +0000 (23:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 13 Jan 2004 23:07:41 +0000 (23:07 +0000)
[ 22133]
Add VMS to the list of "don't fork" OSes
[In the most simple way possible. Fix this properly post 5.8.3
 to use $Config{d_fork} or something more robust]
p4raw-link: @22133 on //depot/perl: a56b3a00287b552dbc3a1b6102629c6e0aedfc2d

p4raw-id: //depot/maint-5.8/perl@22134
p4raw-integrated: from //depot/perl@22132 'copy in'
ext/threads/shared/t/wait.t (@22122..)

ext/threads/shared/t/wait.t

index e95f66a..d1b7c0a 100644 (file)
@@ -33,7 +33,7 @@ sub forko (&$$); # To prevent deadlock from underlying pthread_* bugs (as in
                  # stock RH9 glibc/NPTL) or from our own errors, we run tests
                  # in separately forked and alarmed processes.
 
-*forko = ($^O =~ /^dos|os2|mswin32|netware$/i)  # Not on DOSish platforms
+*forko = ($^O =~ /^dos|os2|mswin32|netware|vms$/i)
 ? sub (&$$) { my $code = shift; goto &$code; }
 : sub (&$$) {
   my ($code, $expected, $patience) = @_;