From 3cb9023dc910d8a9abbd8d44e501f6e492155eb5 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 30 Jun 2003 08:36:38 +0000 Subject: 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 --- ext/threads/t/join.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'ext/threads') 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 () { chomp; -- cgit v1.2.1