blob: 0e16d47956b4cb386cfaacafd50f01eb47cf6a6b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--- perl.c.orig 2017-09-11 05:29:19 UTC
+++ perl.c
@@ -1928,23 +1928,7 @@ S_Internals_V(pTHX_ CV *cv)
PUSHs(Perl_newSVpvn_flags(aTHX_ non_bincompat_options,
sizeof(non_bincompat_options) - 1, SVs_TEMP));
-#ifndef PERL_BUILD_DATE
-# ifdef __DATE__
-# ifdef __TIME__
-# define PERL_BUILD_DATE __DATE__ " " __TIME__
-# else
-# define PERL_BUILD_DATE __DATE__
-# endif
-# endif
-#endif
-
-#ifdef PERL_BUILD_DATE
- PUSHs(Perl_newSVpvn_flags(aTHX_
- STR_WITH_LEN("Compiled at " PERL_BUILD_DATE),
- SVs_TEMP));
-#else
PUSHs(&PL_sv_undef);
-#endif
for (i = 1; i <= local_patch_count; i++) {
/* This will be an undef, if PL_localpatches[i] is NULL. */
|
