Author: guillem
Date: 2006-11-24 05:08:00 +0100 (Fri, 24 Nov 2006)
New Revision: 601
Modified:
trunk/ChangeLog
trunk/debian/changelog
trunk/scripts/controllib.pl
Log:
Require POSIX inside subprocerr in controllib.pl. Closes: #390636
Thanks to Brendan O'Dea <[EMAIL PROTECTED]>.
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2006-11-24 01:39:51 UTC (rev 600)
+++ trunk/ChangeLog 2006-11-24 04:08:00 UTC (rev 601)
@@ -1,3 +1,8 @@
+2006-11-24 Brendan O'Dea <[EMAIL PROTECTED]>
+
+ * scripts/controllib.pl (subprocerr): Require POSIX for WIFEXITED,
+ WEXITSTATUS, WIFSIGNALED and WTERMSIG.
+
2006-10-13 Guillem Jover <[EMAIL PROTECTED]>
* configure.ac: Bump version to 1.13.25~.
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2006-11-24 01:39:51 UTC (rev 600)
+++ trunk/debian/changelog 2006-11-24 04:08:00 UTC (rev 601)
@@ -6,6 +6,8 @@
* Document in its man page that update-alternatives requires cooperation
from all packages dealing with the specific file. Closes: #396338
Thanks to Tomas Pospisek <[EMAIL PROTECTED]>.
+ * Require POSIX inside subprocerr in controllib.pl. Closes: #390636
+ Thanks to Brendan O'Dea <[EMAIL PROTECTED]>.
[ Updated dpkg translations ]
* Chinese (Traditional, Asho Yeh)
Modified: trunk/scripts/controllib.pl
===================================================================
--- trunk/scripts/controllib.pl 2006-11-24 01:39:51 UTC (rev 600)
+++ trunk/scripts/controllib.pl 2006-11-24 04:08:00 UTC (rev 601)
@@ -430,12 +430,13 @@
sub subprocerr {
local ($p) = @_;
- if (WIFEXITED($?)) {
+ require POSIX;
+ if (POSIX::WIFEXITED($?)) {
die sprintf(_g("%s: failure: %s gave error exit status %s"),
- $progname, $p, WEXITSTATUS($?))."\n";
- } elsif (WIFSIGNALED($?)) {
+ $progname, $p, POSIX::WEXITSTATUS($?))."\n";
+ } elsif (POSIX::WIFSIGNALED($?)) {
die sprintf(_g("%s: failure: %s died from signal %s"),
- $progname, $p, WTERMSIG($?))."\n";
+ $progname, $p, POSIX::WTERMSIG($?))."\n";
} else {
die sprintf(_g("%s: failure: %s failed with unknown exit code %d"),
$progname, $p, $?)."\n";
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
