7 my ($callpack, $callfile, $callline) = caller;
15 foreach $sym (@EXPORT) {
16 *{"${callpack}::$sym"} = \&{"Shell::$sym"};
28 elsif (\$Config{'archname'} eq 'os2') {
29 local(\*SAVEOUT, \*READ, \*WRITE);
31 open SAVEOUT, '>&STDOUT' or die;
32 pipe READ, WRITE or die;
33 open STDOUT, '>&WRITE' or die;
36 my \$pid = system(1, \$cmd, \@_);
37 die "Can't execute $cmd: \$!\n" if \$pid < 0;
39 open STDOUT, '>&SAVEOUT' or die;
59 or die "Can't exec $cmd: \$!\n";
62 close SUBPROC; # XXX Oughta use a destructor.