diff options
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Dgit.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 2555812..aa0c5a3 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -186,8 +186,19 @@ sub waitstatusmsg () { } sub failedcmd { + # Expects $!,$? as set by close - see below. + # To use with system(), set $?=-1 first. + # + # Actual behaviour of perl operations: + # success $!==0 $?==0 close of piped open + # program failed $!==0 $? >0 close of piped open + # syscall failure $! >0 $?=-1 close of piped open + # failure $! >0 unchanged close of something else + # success trashed $?==0 system + # program failed trashed $? >0 system + # syscall failure $! >0 unchanged system { local ($!); printcmd \*STDERR, _us().": failed command:", @_ or die $!; }; - if ($!) { + if ($? < 0) { fail "failed to fork/exec: $!"; } elsif ($?) { fail "subprocess ".waitstatusmsg(); |