summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2009-11-12 10:46:30 -0500
committerDavid Golden <dagolden@cpan.org>2009-11-14 23:09:27 -0500
commitded326e4b6fad7e2479796691d0c27b89d2fe080 (patch)
tree36c098634f3dbc2ccadd8848eda7081ceef32bd3 /perl.c
parentd0f83c37b9d28134de63d7e3eb8427ccf56ca5ba (diff)
downloadperl-ded326e4b6fad7e2479796691d0c27b89d2fe080.tar.gz
Change perl -v version format
New format: This is perl 5, version 11, subversion 1 (v5.11.1) ... The rationale for this change is that the Perl 5 interpreter will never increment PERL_REVISION from 5 to 6, so we want people to start focusing on the PERL_VERSION number as most significant and PERL_SUBVERSION as equivalent to a "release number". In other words, "perl 5" is a language, this is the 11th version of it, and the second release of that version (counting from zero). Among other things, this makes the output of -v and -V more consistent. The old v-string style is included for familiarity and usage in code. For builds from git, it will include the same extended format as it did before, e.g. "(v5.11.1-176-gaf24cc9*)"
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index 3ffd3fc9e9..a9abdb46fe 100644
--- a/perl.c
+++ b/perl.c
@@ -3222,9 +3222,11 @@ Perl_moreswitches(pTHX_ const char *s)
}
#endif
PerlIO_printf(PerlIO_stdout(),
- "\nThis is perl, %"SVf
- " built for " ARCHNAME,
- level);
+ "\nThis is perl " STRINGIFY(PERL_REVISION)
+ ", version " STRINGIFY(PERL_VERSION)
+ ", subversion " STRINGIFY(PERL_SUBVERSION)
+ " (%"SVf") built for " ARCHNAME, level
+ );
SvREFCNT_dec(level);
}
#else /* DGUX */