File tree Expand file tree Collapse file tree 1 file changed +0
-18
lines changed Expand file tree Collapse file tree 1 file changed +0
-18
lines changed Original file line number Diff line number Diff line change @@ -429,24 +429,6 @@ Perl_xxx(aTHX_ ...) form for any API calls where it's used.
429
429
#define get_cvs (str , flags ) \
430
430
Perl_get_cvn_flags(aTHX_ STR_WITH_LEN(str), (flags))
431
431
432
- /* internal helpers */
433
- /* Transitional */
434
- #ifndef PERL_VERSION_MAJOR
435
- # define PERL_VERSION_MAJOR PERL_REVISION
436
- #else
437
- # undef PERL_REVISION /* We don't want code to be using these */
438
- #endif
439
- #ifndef PERL_VERSION_MINOR
440
- # define PERL_VERSION_MINOR PERL_VERSION
441
- #else
442
- # undef PERL_VERSION
443
- #endif
444
- #ifndef PERL_VERSION_PATCH
445
- # define PERL_VERSION_PATCH PERL_SUBVERSION
446
- #else
447
- # undef PERL_SUBVERSION
448
- #endif
449
-
450
432
#define PERL_JNP_TO_DECIMAL_ (maJor ,miNor ,Patch ) \
451
433
/* '10*' leaves room for things like alpha, beta, releases */ \
452
434
(10 * ((maJor) * 1000000) + ((miNor) * 1000) + (Patch))
You can’t perform that action at this time.
0 commit comments