Change 33639 by [EMAIL PROTECTED] on 2008/04/03 15:41:26
Clean up some compiler warnings spotted by smokers.
Affected files ...
... //depot/perl/perl.c#866 edit
... //depot/perl/pp_sys.c#557 edit
Differences ...
==== //depot/perl/perl.c#866 (text) ====
Index: perl/perl.c
--- perl/perl.c#865~33595~ 2008-03-28 17:30:42.000000000 -0700
+++ perl/perl.c 2008-04-03 08:41:26.000000000 -0700
@@ -3240,7 +3240,7 @@
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);
==== //depot/perl/pp_sys.c#557 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#556~33343~ 2008-02-21 16:20:45.000000000 -0800
+++ perl/pp_sys.c 2008-04-03 08:41:26.000000000 -0700
@@ -4939,7 +4939,7 @@
{
#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 @@
{
#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 @@
{
#ifdef HAS_SETSERVENT
dVAR; dSP;
- PerlSock_setservent(TOPi);
+ (void)PerlSock_setservent(TOPi);
RETSETYES;
#else
DIE(aTHX_ PL_no_sock_func, "setservent");
End of Patch.
