2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.17 2003/07/02 11:17:32 jonen |
6 |
|
## minor changes |
7 |
|
## |
8 |
## Revision 1.16 2003/06/25 22:49:56 joko |
## Revision 1.16 2003/06/25 22:49:56 joko |
9 |
## RUNNING_IN_HELL mode for detach option |
## RUNNING_IN_HELL mode for detach option |
10 |
## |
## |
331 |
my $proc1 = Proc::Background->new(@cmd); |
my $proc1 = Proc::Background->new(@cmd); |
332 |
print "pid: ", $proc1->pid(), "\n"; |
print "pid: ", $proc1->pid(), "\n"; |
333 |
} else { |
} else { |
334 |
print STDERR "run_cmd[detach]: system('$cmd' &).", "\n"; |
print STDOUT "run_cmd[detach]: system('$cmd' &).", "\n"; |
335 |
system($cmd . ' &'); |
system($cmd . ' &'); |
336 |
} |
} |
337 |
|
|