I have written a perl module to interface to a cli ui. Here is a snippet of code from the module

use IPC::Open2;
use Symbol;
sub connect_to_cli {
   my $rdr        = gensym();
   my $wtr        = gensym();

   my $pid = open2( $rdr, $wtr, $cmdline );

   return $pid;
}
[download]

And from a script that uses that module

use MyModule;

my $session = new MyModule();
$pid = $session->connect_to_cli();
[download]

Running the perl script causes things to get stuck on the open2 call. But if I use the open2 call in a perl script it works fine.

use IPC::Open2;
use Symbol;

   my $rdr        = gensym();
   my $wtr        = gensym();

   my $pid = open2( $rdr, $wtr, $cmdline );

   print "pid =  $pid\n";
[download]

Soraia

Edit by tye