This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8ba22ff
)
Add conditional code to initialise RETVAL, to avoid compiler warnings.
author
Nicholas Clark
<nick@ccl4.org>
Sat, 31 May 2008 11:53:20 +0000
(11:53 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sat, 31 May 2008 11:53:20 +0000
(11:53 +0000)
(There was never an error, as croak() was called before the return).
p4raw-id: //depot/perl@33956
ext/POSIX/POSIX.xs
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/POSIX.xs
b/ext/POSIX/POSIX.xs
index
b7cdc34
..
238d797
100644
(file)
--- a/
ext/POSIX/POSIX.xs
+++ b/
ext/POSIX/POSIX.xs
@@
-656,6
+656,11
@@
WEXITSTATUS(status)
POSIX::WSTOPSIG = 4
POSIX::WTERMSIG = 5
CODE:
+#if !(defined(WEXITSTATUS) || defined(WIFEXITED) || defined(WIFSIGNALED) \
+ || defined(WIFSTOPPED) || defined(WSTOPSIG) || defined (WTERMSIG))
+ RETVAL = 0; /* Silence compilers that notice this, but don't realise
+ that not_here() can't return. */
+#endif
switch(ix) {
case 0:
#ifdef WEXITSTATUS