From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 3 Apr 2008 15:41:26 +0000 (+0000)
Subject: Clean up some compiler warnings spotted by smokers.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63da68370303e866ac043996a57db4b7e44b7270;p=p5sagit%2Fp5-mst-13.2.git

Clean up some compiler warnings spotted by smokers.

p4raw-id: //depot/perl@33639
---

diff --git a/perl.c b/perl.c
index 57f2938..9813d6d 100644
--- 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);
diff --git a/pp_sys.c b/pp_sys.c
index fc57695..98a958d 100644
--- 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");