This solves the problem!
I want to be able to run the same program on both old and new systems,
so rather than substituting $? for ${^CHILD_ERROR_NATIVE} directly, I
substituted like so:
WIFSTOPPED(( defined ${^CHILD_ERROR_NATIVE} ? ${^CHILD_ERROR_NATIVE} : $? ))
For the benefit of the curiou
Package: perl-base
Version: 5.10.0-19
Severity: important
When perl is testing if a child process is stopped, the
result of the WIFSTOPPED function is never correct:
#!/usr/bin/perl
$|++;
use POSIX;
unless ( $pid = fork ) {
print "child: stopping self\n";
kill STOP => $$;
e
Great experiences in bed start with this.
http://www.wesevy.com/
Women Like It Big
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
3 matches
Mail list logo
