[LTP] Hang when running LTP from a perl script

[Bryce H. <br...@os...>]

Hi Folks,

When running LTP from a system() call in Perl, LTP hangs during the
waitpid02 call.  Specifically:

  [root@cl023 waitpid]# ./waitpid02
  waitpid02    1  PASS  :  recieved expected pid
  waitpid02    2  PASS  :  recieved expected signal
  waitpid02    3  PASS  :  recieved expected exit value
  [root@cl023 waitpid]# cat run_waitpid02.pl
  #!/usr/bin/perl -w

  use strict;
  system("./waitpid02");
  [root@cl023 waitpid]# ./run_waitpid02.pl
  ### Hangs until ^C

Doing the same thing via a sh script works:

  [root@cl023 waitpid]# cat run_waitpid02.sh
  #!/bin/sh

  ./waitpid02
  [root@cl023 waitpid]# ./run_waitpid02.sh
  waitpid02    1  PASS  :  recieved expected pid
  waitpid02    2  PASS  :  recieved expected signal
  waitpid02    3  PASS  :  recieved expected exit value
  [root@cl023 waitpid]#

Is this expected behavior - i.e., that LTP should only be invoked through
/bin/sh and not Perl, or is there a trick to getting around it?

Thanks,
Bryce