diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-29 01:16:12 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-02-29 01:16:12 +0000 |
| commit | 53a31ecefe15e34953f4868c1639344e11cfb0a6 (patch) | |
| tree | b3e3b7716686708dfef67b4554e6eb9ede3991cd /pp_sys.c | |
| parent | 271c29639254e6265b801536ac93f7ab8998e9c6 (diff) | |
| download | perl-53a31ecefe15e34953f4868c1639344e11cfb0a6.tar.gz | |
perl 5.002_01: pp_sys.c
Change run to runops; add cast to insure signed type
when computing difference between two times
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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; } |