This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add conditional code to initialise RETVAL, to avoid compiler warnings.
authorNicholas Clark <nick@ccl4.org>
Sat, 31 May 2008 11:53:20 +0000 (11:53 +0000)
committerNicholas 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

index b7cdc34..238d797 100644 (file)
@@ -656,6 +656,11 @@ WEXITSTATUS(status)
        POSIX::WSTOPSIG = 4
        POSIX::WTERMSIG = 5
     CODE:
        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
        switch(ix) {
        case 0:
 #ifdef WEXITSTATUS