[rt.cpan.org #88495] version->new str cmp bug

We shouldn’t consider ver and version to be the same class.

If ver inherits from version, ver->new should give a ver object.

This string comparison bug has only ever existed in the perl core
version of the version routines.  It was ed1db70e1224 in 5.16 that
introduced it.

1 files changed, 2 insertions, 1 deletions

diff --git a/vxs.inc b/vxs.inc
index a8b92944f7..3217670252 100644
--- a/vxs.inc
+++ b/vxs.inc
@@ -204,7 +204,8 @@ XS(XS_version_new)
 	}
 
 	rv = new_version(vs);
-	if ( strnNE(classname,"version", len) ) /* inherited new() */
+	if ( len != 7
+	  || strnNE(classname,"version", len) ) /* inherited new() */
 	    sv_bless(rv, gv_stashpvn(classname, len, GV_ADD | flags));
 
 	mPUSHs(rv);