diff options
| author | John Peacock <jpeacock@cpan.org> | 2013-12-09 18:23:20 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-04 05:10:04 -0800 |
| commit | 4141ef59170e80715499432a2f4b9bfca704247d (patch) | |
| tree | 93f4ab025eaf75ea9cc3738663a13cd40a58bebf /vxs.inc | |
| parent | 0f6a6701e55132200d4390809b1b292ab0a709ad (diff) | |
| download | perl-4141ef59170e80715499432a2f4b9bfca704247d.tar.gz | |
Integrate CPAN version.pm release into core
Diffstat (limited to 'vxs.inc')
| -rw-r--r-- | vxs.inc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -98,7 +98,7 @@ VXS(UNIVERSAL_VERSION) if (gvp && isGV(gv = *gvp) && (sv = GvSV(gv)) && SvOK(sv)) { sv = sv_mortalcopy(sv); - if ( ! ISA_CLASS_OBJ(sv, "version::vxs")) + if ( ! ISA_CLASS_OBJ(sv, "version")) UPG_VERSION(sv, FALSE); undef = NULL; } @@ -304,7 +304,7 @@ VXS(version_vcmp) SV * robj = ST(1); const IV swap = (IV)SvIV(ST(2)); - if ( !ISA_CLASS_OBJ(robj, "version::vxs") ) + if ( !ISA_CLASS_OBJ(robj, "version") ) { robj = NEW_VERSION(SvOK(robj) ? robj : newSVpvs_flags("0", SVs_TEMP)); sv_2mortal(robj); |