diff options
| -rw-r--r-- | patchlevel.h | 4 | ||||
| -rw-r--r-- | perl.c | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/patchlevel.h b/patchlevel.h index 885643f34f..207c49207c 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -17,6 +17,10 @@ #define PERL_VERSION 11 /* epoch */ #define PERL_SUBVERSION 0 /* generation */ +#define PERL_VERSION_STRING STRINGIFY(PERL_REVISION) "." \ + STRINGIFY(PERL_VERSION) "." \ + STRINGIFY(PERL_SUBVERSION) + /* The following numbers describe the earliest compatible version of Perl ("compatibility" here being defined as sufficient binary/API compatibility to run XS code built with the older version). @@ -347,8 +347,7 @@ perl_construct(pTHXx) PL_stashcache = newHV(); - PL_patchlevel = Perl_newSVpvf(aTHX_ "v%d.%d.%d", (int)PERL_REVISION, - (int)PERL_VERSION, (int)PERL_SUBVERSION); + PL_patchlevel = newSVpvs("v" PERL_VERSION_STRING); #ifdef HAS_MMAP if (!PL_mmap_page_size) { |