Michael Schröder
a8e78c8c6d
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=255
27 lines
823 B
Diff
27 lines
823 B
Diff
--- intrpvar.h.orig 2024-10-02 10:46:21.317141115 +0000
|
|
+++ intrpvar.h 2024-10-02 10:54:30.100285224 +0000
|
|
@@ -517,7 +517,7 @@ PERLVAR(I, minus_E, bool)
|
|
PERLVAR(I, inplace, char *)
|
|
PERLVAR(I, e_script, SV *)
|
|
|
|
-PERLVAR(I, basetime, Time_t) /* $^T */
|
|
+PERLVAR(I, basetime, I64) /* $^T */
|
|
|
|
PERLVARI(I, maxsysfd, I32, MAXSYSFD)
|
|
/* top fd to pass to subprocesses */
|
|
--- perl.c.orig 2024-10-02 10:50:37.852692981 +0000
|
|
+++ perl.c 2024-10-02 10:54:42.324263764 +0000
|
|
@@ -1902,7 +1902,11 @@ perl_parse(pTHXx_ XSINIT_t xsinit, int a
|
|
SvREFCNT_dec(PL_main_cv);
|
|
PL_main_cv = NULL;
|
|
|
|
- time(&PL_basetime);
|
|
+ {
|
|
+ Time_t basetime;
|
|
+ time(&basetime);
|
|
+ PL_basetime = (I64)basetime;
|
|
+ }
|
|
oldscope = PL_scopestack_ix;
|
|
PL_dowarn = G_WARN_OFF;
|
|
|