This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clean up some compiler warnings spotted by smokers.
authorNicholas Clark <nick@ccl4.org>
Thu, 3 Apr 2008 15:41:26 +0000 (15:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 3 Apr 2008 15:41:26 +0000 (15:41 +0000)
p4raw-id: //depot/perl@33639

perl.c
pp_sys.c

diff --git a/perl.c b/perl.c
index 57f2938..9813d6d 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3240,7 +3240,7 @@ Perl_moreswitches(pTHX_ const char *s)
            if (colon) 
                Perl_croak(aTHX_ "Invalid module name %.*s with -%c option: "
                                    "contains single ':'",
-                                   s - start, start, option);
+                                   (int)(s - start), start, option);
            end = s + strlen(s);
            if (*s != '=') {
                sv_catpvn(sv, start, end - start);
index fc57695..98a958d 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4939,7 +4939,7 @@ PP(pp_snetent)
 {
 #ifdef HAS_SETNETENT
     dVAR; dSP;
-    PerlSock_setnetent(TOPi);
+    (void)PerlSock_setnetent(TOPi);
     RETSETYES;
 #else
     DIE(aTHX_ PL_no_sock_func, "setnetent");
@@ -4950,7 +4950,7 @@ PP(pp_sprotoent)
 {
 #ifdef HAS_SETPROTOENT
     dVAR; dSP;
-    PerlSock_setprotoent(TOPi);
+    (void)PerlSock_setprotoent(TOPi);
     RETSETYES;
 #else
     DIE(aTHX_ PL_no_sock_func, "setprotoent");
@@ -4961,7 +4961,7 @@ PP(pp_sservent)
 {
 #ifdef HAS_SETSERVENT
     dVAR; dSP;
-    PerlSock_setservent(TOPi);
+    (void)PerlSock_setservent(TOPi);
     RETSETYES;
 #else
     DIE(aTHX_ PL_no_sock_func, "setservent");