Changeset View
Changeset View
Standalone View
Standalone View
lang/perl5.18/files/patch-perl.c
- This file was added.
| Property | Old Value | New Value |
|---|---|---|
| fbsd:nokeywords | null | yes \ No newline at end of property |
| svn:eol-style | null | native \ No newline at end of property |
| svn:mime-type | null | text/plain \ No newline at end of property |
| --- perl.c.orig 2014-10-01 01:33:00 UTC | |||||
| +++ perl.c | |||||
| @@ -1789,18 +1789,7 @@ S_Internals_V(pTHX_ CV *cv) | |||||
| PUSHs(Perl_newSVpvn_flags(aTHX_ non_bincompat_options, | |||||
| sizeof(non_bincompat_options) - 1, SVs_TEMP)); | |||||
| -#ifdef __DATE__ | |||||
| -# ifdef __TIME__ | |||||
| - PUSHs(Perl_newSVpvn_flags(aTHX_ | |||||
| - STR_WITH_LEN("Compiled at " __DATE__ " " __TIME__), | |||||
| - SVs_TEMP)); | |||||
| -# else | |||||
| - PUSHs(Perl_newSVpvn_flags(aTHX_ STR_WITH_LEN("Compiled on " __DATE__), | |||||
| - SVs_TEMP)); | |||||
| -# endif | |||||
| -#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. */ | |||||