On 05/01/2007 07:09 PM, Vladimir Lemberg wrote:
[...]
system ( "$program -f $program.cfg" );
if ($? == -3) {
[...]
You're facing two problems: the return value for system() needs to be
shifted right by eight bits; and that value is provided in "unsigned"
form, so you have to massage it:
my $code = system(...);
$code = unpack 'c', pack 'c', $code >> 8;
if ($code == -3) {
}
Read "perldoc -f system"
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
