qv is affected, too. A package called "ver" inheriting from version
should be able to create "ver" objects via ->qv.
{ # https://rt.cpan.org/Ticket/Display.html?id=88495
@ver::ISA = "version";
is ref(ver->new), 'ver', 'ver can inherit from version';
+ is ref(ver->qv("1.2.3")), 'ver', 'ver can inherit from version';
}
}
} else {
rv = sv_2mortal(new_version(ver));
}
- if ( items == 2
- && strnNE(classname,"version", len) ) { /* inherited new() */
+ if ( items == 2 && (len != 7
+ || strnNE(classname,"version", len)) ) { /* inherited new() */
sv_bless(rv, gv_stashpvn(classname, len, GV_ADD | flags));
}
PUSHs(rv);