From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 29 Feb 1996 01:16:12 +0000 (+0000)
Subject: perl 5.002_01: pp_sys.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53a31ecefe15e34953f4868c1639344e11cfb0a6;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002_01: pp_sys.c

Change run to runops; add cast to insure signed type
when computing difference between two times
---

diff --git a/pp_sys.c b/pp_sys.c
index b389f57..ba1f105 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -420,7 +420,7 @@ PP(pp_tie)
     PUTBACK;
 
     if (op = pp_entersub())
-        run();
+        runops();
     SPAGAIN;
 
     sv = TOPs;
@@ -518,7 +518,7 @@ PP(pp_dbmopen)
     PUTBACK;
 
     if (op = pp_entersub())
-        run();
+        runops();
     SPAGAIN;
 
     if (!sv_isobject(TOPs)) {
@@ -535,7 +535,7 @@ PP(pp_dbmopen)
 	PUTBACK;
 
 	if (op = pp_entersub())
-	    run();
+	    runops();
 	SPAGAIN;
     }
 
@@ -1965,7 +1965,7 @@ PP(pp_ftmtime)
     dSP; dTARGET;
     if (result < 0)
 	RETPUSHUNDEF;
-    PUSHn( (basetime - statcache.st_mtime) / 86400.0 );
+    PUSHn( ((I32)basetime - (I32)statcache.st_mtime) / 86400.0 );
     RETURN;
 }
 
@@ -1975,7 +1975,7 @@ PP(pp_ftatime)
     dSP; dTARGET;
     if (result < 0)
 	RETPUSHUNDEF;
-    PUSHn( (basetime - statcache.st_atime) / 86400.0 );
+    PUSHn( ((I32)basetime - (I32)statcache.st_atime) / 86400.0 );
     RETURN;
 }
 
@@ -1985,7 +1985,7 @@ PP(pp_ftctime)
     dSP; dTARGET;
     if (result < 0)
 	RETPUSHUNDEF;
-    PUSHn( (basetime - statcache.st_ctime) / 86400.0 );
+    PUSHn( ((I32)basetime - (I32)statcache.st_ctime) / 86400.0 );
     RETURN;
 }