X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=b42cced0e2d7d53fe2a1c89b83b50094185410ce;hb=3dae3b3445810204b098aa3420cb5d43bf991d8b;hp=0d2c970ff177ab961f7067e0c7efaa1636968ac4;hpb=1f200948c4c45a9bc088451dd377e4ab8733c722;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index 0d2c970..b42cced 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -29,7 +29,7 @@
 #include "EXTERN.h"
 #define PERL_IN_PP_SYS_C
 #include "perl.h"
-#ifndef PERL_MICRO
+#if !defined(PERL_MICRO) && defined(Quad_t)
 #  include "time64.h"
 #  include "time64.c"
 #endif
@@ -1818,9 +1818,8 @@ PP(pp_send)
 	    SV *sv;
 
 	    if (MARK == SP - 1) {
-		EXTEND(SP, 1000);
-		sv = sv_2mortal(newSViv(sv_len(*SP)));
-		PUSHs(sv);
+		sv = *SP;
+		mXPUSHi(sv_len(sv));
 		PUTBACK;
 	    }
 
@@ -4425,7 +4424,7 @@ PP(pp_gmtime)
 {
     dVAR;
     dSP;
-#ifdef PERL_MICRO
+#if defined(PERL_MICRO) || !defined(Quad_t)
     Time_t when;
     const struct tm *err;
     struct tm tmbuf;
@@ -4441,7 +4440,7 @@ PP(pp_gmtime)
 	{"Jan", "Feb", "Mar", "Apr", "May", "Jun",
 	 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
 
-#ifdef PERL_MICRO
+#if defined(PERL_MICRO) || !defined(Quad_t)
     if (MAXARG < 1)
 	(void)time(&when);
     else
@@ -4465,9 +4464,9 @@ PP(pp_gmtime)
 	   using a double causes an unfortunate loss of accuracy on high numbers.
 	   What we really need is an SvQV.
 	*/
-	double input = POPn;
+	double input = Perl_floor(POPn);
 	when = (Time64_T)input;
-	if( when != input ) {
+	if (when != input && ckWARN(WARN_OVERFLOW)) {
 	    Perl_warner(aTHX_ packWARN(WARN_OVERFLOW),
 			"%s(%.0f) too large", opname, input);
 	}
@@ -4479,7 +4478,7 @@ PP(pp_gmtime)
 	err = gmtime64_r(&when, &tmbuf);
 #endif
 
-    if( err == NULL ) {
+    if (err == NULL && ckWARN(WARN_OVERFLOW)) {
 	/* XXX %lld broken for quads */
 	Perl_warner(aTHX_ packWARN(WARN_OVERFLOW),
 		    "%s(%.0f) failed", opname, (double)when);
@@ -5329,7 +5328,11 @@ PP(pp_ggrent)
 	PUSHs(sv);
 	if (grent) {
 	    if (which == OP_GGRNAM)
+#if Gid_t_sign <= 0
 		sv_setiv(sv, (IV)grent->gr_gid);
+#else
+		sv_setuv(sv, (UV)grent->gr_gid);
+#endif
 	    else
 		sv_setpv(sv, grent->gr_name);
 	}
@@ -5345,7 +5348,11 @@ PP(pp_ggrent)
 	PUSHs(sv_mortalcopy(&PL_sv_no));
 #endif
 
+#if Gid_t_sign <= 0
 	mPUSHi(grent->gr_gid);
+#else
+	mPUSHu(grent->gr_gid);
+#endif
 
 #if !(defined(_CRAYMPP) && defined(USE_REENTRANT_API))
 	/* In UNICOS/mk (_CRAYMPP) the multithreading