This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX: silence some compiler warnings
authorDavid Mitchell <davem@iabyn.com>
Mon, 18 Nov 2013 15:24:04 +0000 (15:24 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 18 Nov 2013 17:14:22 +0000 (17:14 +0000)
ext/POSIX/POSIX.xs
ext/POSIX/lib/POSIX.pm

index b3319fb..6caea48 100644 (file)
@@ -580,6 +580,10 @@ BOOT:
     CV *cv;
     const char *file = __FILE__;
 
     CV *cv;
     const char *file = __FILE__;
 
+
+    /* silence compiler warning about not_here() defined but not used */
+    if (0) not_here("");
+
     /* Ensure we get the function, not a macro implementation. Like the C89
        standard says we can...  */
 #undef isalnum
     /* Ensure we get the function, not a macro implementation. Like the C89
        standard says we can...  */
 #undef isalnum
@@ -744,6 +748,8 @@ getiflag(termios_ref)
        case 3:
            RETVAL = termios_ref->c_lflag;
            break;
        case 3:
            RETVAL = termios_ref->c_lflag;
            break;
+        default:
+           RETVAL = 0; /* silence compiler warning */
        }
 #else
        not_here(GvNAME(CvGV(cv)));
        }
 #else
        not_here(GvNAME(CvGV(cv)));
index d5f344a..68c0688 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 our ($AUTOLOAD, %SIGRT);
 
 
 our ($AUTOLOAD, %SIGRT);
 
-our $VERSION = '1.35';
+our $VERSION = '1.36';
 
 require XSLoader;
 
 
 require XSLoader;