diff options
author | Todd Rinaldo <toddr@cpan.org> | 2020-10-01 12:01:44 -0500 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2020-10-02 09:50:04 -0500 |
commit | 966a34475a7c626a373d46daf542d053d035ed13 (patch) | |
tree | f46d9a3cd994ba421595a67e7f7991c663fd805d /vutil.c | |
parent | 04b729c025ff8e603d17d10088b5379837ec644e (diff) | |
download | perl-966a34475a7c626a373d46daf542d053d035ed13.tar.gz |
Update version to CPAN version 0.9928
[DELTA]
0.9927
* Released 0.99_26 as 0.9927
0.99_26
* Add usage error to pure-perl vcmp
* Quote version classname in test for 5.8 compatability
* Use base instead of parent for tests
* Update ppport.h for future compatibility
0.99_25
* Fix stack usage in vcmp method
* Drop Perl 5.5 compatibility
* Use PERL_VERSION_GE for Perl 7 compatibility
* Fix typo in pod example for comparing versions.
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 11 |
1 files changed, 1 insertions, 10 deletions
@@ -8,8 +8,6 @@ #define VERSION_MAX 0x7FFFFFFF /* -=for apidoc_section Versioning - =for apidoc prescan_version Validate that a given string can be parsed as a version object, but doesn't @@ -573,11 +571,6 @@ Perl_upg_version2(pTHX_ SV *ver, bool qv) Perl_upg_version(pTHX_ SV *ver, bool qv) #endif { - -#ifdef dVAR - dVAR; -#endif - const char *version, *s; #ifdef SvVOK const MAGIC *mg; @@ -704,7 +697,7 @@ VER_NV: #endif if (sv) { - Perl_sv_catpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver)); + Perl_sv_setpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver)); len = SvCUR(sv); buf = SvPVX(sv); } @@ -766,7 +759,6 @@ VER_PV: version = savepvn(SvPV(ver,len), SvCUR(ver)); SAVEFREEPV(version); #ifndef SvVOK -# if PERL_VERSION > 5 /* This will only be executed for 5.6.0 - 5.8.0 inclusive */ if ( len >= 3 && !instr(version,".") && !instr(version,"_")) { /* may be a v-string */ @@ -799,7 +791,6 @@ VER_PV: } } } -# endif #endif } #if PERL_VERSION_LT(5,17,2) |