drop the 5

This commit drop PERL_REVISION from $] and $^V. Since $^V expects 3 components, we add a .0 at the end.
Perl · Dec 11, 2024 · 2f81b2b · 2f81b2b
1 parent 9e152df
commit 2f81b2b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 8 deletions.
diff --git a/perl.c b/perl.c
@@ -4011,9 +4011,8 @@ S_minus_v(pTHX)
 #endif /* #ifdef PERL_PATCHNUM */
         PIO_stdout =  PerlIO_stdout();
             PerlIO_printf(PIO_stdout,
-                "\nThis is perl "	STRINGIFY(PERL_REVISION)
-                ", version "		STRINGIFY(PERL_VERSION)
-                ", subversion "		STRINGIFY(PERL_SUBVERSION)
+                "\nThis is perl, version "	STRINGIFY(PERL_VERSION)
+                ", subversion "			STRINGIFY(PERL_SUBVERSION)
                 " (%" SVf ") built for "	ARCHNAME, SVfARG(level)
                 );
             SvREFCNT_dec_NN(level);

diff --git a/perl.h b/perl.h
@@ -5351,12 +5351,10 @@ EXTERN_C char **environ;  /* environment variables supplied via exec */
 #include "patchlevel.h"
 #undef PERL_PATCHLEVEL_H_IMPLICIT
 
-#define PERL_VERSION_STRING	STRINGIFY(PERL_REVISION) "." \
-                                STRINGIFY(PERL_VERSION) "." \
-                                STRINGIFY(PERL_SUBVERSION)
+#define PERL_VERSION_STRING	STRINGIFY(PERL_VERSION) "." \
+                                STRINGIFY(PERL_SUBVERSION) ".0"
 
-#define PERL_API_VERSION_STRING	STRINGIFY(PERL_API_REVISION) "." \
-                                STRINGIFY(PERL_API_VERSION) "." \
+#define PERL_API_VERSION_STRING	STRINGIFY(PERL_API_VERSION) "." \
                                 STRINGIFY(PERL_API_SUBVERSION)
 
 START_EXTERN_C