diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-30 08:36:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-30 08:36:38 +0000 |
| commit | 3cb9023dc910d8a9abbd8d44e501f6e492155eb5 (patch) | |
| tree | b6e1589a07fc36b3023e7493649f21049543cb91 /ext/threads | |
| parent | f9cbb277dec3cb2700132dedd25b05ea72cda45a (diff) | |
| download | perl-3cb9023dc910d8a9abbd8d44e501f6e492155eb5.tar.gz | |
The 'contiguous' test for argv[], envp[] was bogus
since those need not be in memory end-to-end, e.g.
in Tru64 they are aligned by eight. Loosen the test
so that 'contiguousness' is fulfilled if the elements
are within PTRSIZE alignment. This makes Tru64 to pass
the join.t, too.
p4raw-id: //depot/perl@19889
Diffstat (limited to 'ext/threads')
| -rw-r--r-- | ext/threads/t/join.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t index f8b758e011..0761a5f976 100644 --- a/ext/threads/t/join.t +++ b/ext/threads/t/join.t @@ -91,7 +91,8 @@ ok(1,""); ok(1,""); } -if ($^O eq 'linux') { # We parse ps output so this is OS-dependent. +# We parse ps output so this is OS-dependent. +if ($^O =~ /^(linux|dec_osf)$/) { # First modify $0 in a subthread. print "# mainthread: \$0 = $0\n"; threads->new( sub { @@ -100,7 +101,7 @@ if ($^O eq 'linux') { # We parse ps output so this is OS-dependent. print "# subthread: \$0 = $0\n" } )->join; print "# mainthread: \$0 = $0\n"; print "# pid = $$\n"; - if (open PS, "ps -f |") { # Note: must work in (all) Linux(es). + if (open PS, "ps -f |") { # Note: must work in (all) systems. my ($sawpid, $sawexe); while (<PS>) { chomp; |