version-0.9923_02

add vpp support for cperl: scmp, c suffix.
use vars => our.

Author: rurban

Porting/Maintainers.pl

@@ -1572,7 +1572,8 @@ package Maintainers;
     },
 
     'version' => {
-        'DISTRIBUTION' => 'JPEACOCK/version-0.9918.tar.gz',
+        # https://github.com/rurban/version/commits/cperl
+        'DISTRIBUTION' => 'RURBAN/version-0.9923_02.tar.gz',
         'FILES'        => q[cpan/version vutil.c vutil.h vxs.inc],
         'EXCLUDED' => [
             qr{^vutil/lib/},

cpan/version/lib/version.pm

@@ -4,8 +4,8 @@ package version;
 use 5.006002;
 use strict;
 
-our $VERSION = '0.9923_02c';
-$VERSION =~ s/c$//;
+our $VERSION = '0.9923_02';
+#$VERSION =~ s/c$//;
 our $CLASS = 'version';
 our (@ISA, $STRICT, $LAX);
 

cpan/version/lib/version/regex.pm

@@ -2,8 +2,8 @@ package version::regex;
 
 use strict;
 
-our $VERSION = '0.9923_02c';
-$VERSION =~ s/c$//;
+our $VERSION = '0.9923_02';
+#$VERSION =~ s/c$//;
 
 #--------------------------------------------------------------------------#
 # Version regexp components

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -17346,6 +17346,8 @@ for my $version ( sort { version_sort($a, $b) } keys %released ) {
             'Time::Local'           => '1.28',
             'Unicode::Collate'      => '1.25_01',
             'Unicode::UCD'          => '0.68_01',
+            'version'               => '0.9923_02',
+            'version::regex'        => '0.9923_02',
             'Win32'                 => '0.52_01',
             'XSLoader'              => '1.04c',
         },

pod/perlcdelta.pod

@@ -2038,10 +2038,13 @@ Improved function documentation
 
 =item L<vars> 1.04
 
-=item L<version> 0.9918_02c
+=item L<version> 0.9923_02
 
 Add updates from 0.9918: Add LAX_DECIMAL_VERSION, LAX_DOTTED_DECIMAL_VERSION,
 STRICT_DECIMAL_VERSION, STRICT_DOTTED_DECIMAL_VERSION regexes.
+Add updates from 0.9921: pod, safer C locale switching.
+add vpp support for cperl: scmp, c suffix.
+use vars => our.
 
 Add F<t/11_taint.t>
 

t/porting/customized.dat

@@ -158,7 +158,7 @@ threads dist/threads/lib/threads.pm 070834529ce90f9cd47f9113e0803f4f44f47629
 threads dist/threads/t/locale.t 9a2a5b43a39867590eb288d4a1759abac2052aa8
 threads dist/threads/threads.xs 9d4c375efbcd56b57416c87406afec861bc01360
 threads::shared dist/threads-shared/t/waithires.t dc867159fd2fa8c09326cd7627f5a0635ca5e3b5
-version cpan/version/lib/version.pm 5c578896318efbc417130d977da356792954da03
-version cpan/version/lib/version/regex.pm ba583136e44d520d5a8636c85d27a007cd8d6f1e
+version cpan/version/lib/version.pm 1b451b1390960dd06445daf6796e503951fe2ab7
+version cpan/version/lib/version/regex.pm 43601bfc51311eff1b8e347ce62fab2bf2dd8809
 version vutil.c ea25ed9a0947909ea4d10a9a5f866f62c2299112
-version vxs.inc 4d5b01db64de0e6f54db11baa30aac9ecc0b2788
+version vxs.inc 3ac4b29b5093605e3bbf59c20814ef4a601484e4

vutil.h

@@ -262,4 +262,17 @@ const char * Perl_prescan_version(pTHX_ const char *s, bool strict, const char**
 #  define UNLOCK_LC_NUMERIC_STANDARD() UNLOCK_NUMERIC_STANDARD()
 #endif
 
+/* from cperl */
+#ifndef strNEs
+#  define strNEs(s1,s2) (strncmp(s1,"" s2 "", sizeof(s2)-1))
+#endif
+#ifndef strEQc
+#  define strEQc(s, c) memEQ(s, ("" c ""), sizeof(c))
+#  define strNEc(s, c) memNE(s, ("" c ""), sizeof(c))
+#endif
+#ifndef hv_existss
+#  define hv_existss(hv, key) \
+          hv_exists((hv), ("" key ""), (sizeof(key)-1))
+#endif
+
 /* ex: set ro: */

vxs.inc

@@ -164,7 +164,7 @@ VXS(universal_version)
 	}
 
 	if ( VCMP( req, sv ) > 0 ) {
-	    if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) {
+	    if ( hv_existss(MUTABLE_HV(SvRV(req)), "qv") ) {
 		req = VNORMAL(req);
 		sv  = VNORMAL(sv);
 	    }
@@ -366,7 +366,7 @@ VXS(version_scmp)
 	       SV *rvs;
 	       SV *robj       = ST(1);
 	       const IV	 swap = SvIV(ST(2));
-               const int lc   = hv_exists(MUTABLE_HV(SvRV(ST(0))), "cperl", 5);
+               const int lc   = hv_existss(MUTABLE_HV(SvRV(ST(0))), "cperl");
                int ri;
                int rc;
 
@@ -375,7 +375,7 @@ VXS(version_scmp)
 		   robj = sv_2mortal(NEW_VERSION(SvOK(robj) ? robj
                                                  : newSVpvs_flags("0", SVs_TEMP)));
 	       }
-               rc  = (SvTYPE(robj) >= SVt_PVHV) && hv_exists(MUTABLE_HV(robj), "cperl", 5);
+               rc  = (SvTYPE(robj) >= SVt_PVHV) && hv_existss(MUTABLE_HV(robj), "cperl");
 	       rvs = SvRV(robj);
 
 	       ri = swap ? VCMP(rvs,lobj) : VCMP(lobj,rvs);