X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=8c0820f580f0611458c5d894a8dc6cce219d4bd1;hb=10f9c03dadf6f1b8284a5636eec24431c23a2c13;hp=afac5ab1ce0c1d3a0c4226eff8cb69286fc896ae;hpb=94e4c24434948b232e1a08fce7b0c2f871b1262e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index afac5ab..8c0820f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3940,13 +3940,13 @@ PP(pp_gmtime)
 	if (!tmbuf)
 	    RETPUSHUNDEF;
 	tsv = Perl_newSVpvf(aTHX_ "%s %s %2d %02d:%02d:%02d %d",
-		       dayname[tmbuf->tm_wday],
-		       monname[tmbuf->tm_mon],
-		       tmbuf->tm_mday,
-		       tmbuf->tm_hour,
-		       tmbuf->tm_min,
-		       tmbuf->tm_sec,
-		       tmbuf->tm_year + 1900);
+			    dayname[tmbuf->tm_wday],
+			    monname[tmbuf->tm_mon],
+			    (IV)tmbuf->tm_mday,
+			    (IV)tmbuf->tm_hour,
+			    (IV)tmbuf->tm_min,
+			    (IV)tmbuf->tm_sec,
+			    (IV)tmbuf->tm_year + 1900);
 	PUSHs(sv_2mortal(tsv));
     }
     else if (tmbuf) {