In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/23d483e2ac9eec5dd3415b4d8aad7ec7b0551ead?hp=4feb7f09863104b519a817212830509fc1dd677e>
- Log -----------------------------------------------------------------
commit 23d483e2ac9eec5dd3415b4d8aad7ec7b0551ead
Author: Nicholas Clark <n...@ccl4.org>
Date: Sun Jan 25 16:45:04 2009 +0000
In the code for printing -v, replace longhand newSVpvn() with newSVpvs(),
and
avoid needing a sv_catpvs().
-----------------------------------------------------------------------
Summary of changes:
perl.c | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/perl.c b/perl.c
index 428df24..f6c3931 100644
--- a/perl.c
+++ b/perl.c
@@ -3222,10 +3222,11 @@ Perl_moreswitches(pTHX_ const char *s)
{
SV* level= vstringify(PL_patchlevel);
#ifdef PERL_PATCHNUM
- SV* num= newSVpvn(PERL_PATCHNUM,sizeof(PERL_PATCHNUM)-1);
-#ifdef PERL_GIT_UNCOMMITTED_CHANGES
- sv_catpvs(num, "*");
-#endif
+# ifdef PERL_GIT_UNCOMMITTED_CHANGES
+ SV *num = newSVpvs(PERL_PATCHNUM "*");
+# else
+ SV *num = newSVpvs(PERL_PATCHNUM);
+# endif
if (sv_len(num)>=sv_len(level) &&
strnEQ(SvPV_nolen(num),SvPV_nolen(level),sv_len(level))) {
SvREFCNT_dec(level);
--
Perl5 Master Repository
