Lines Matching defs:ver
483 SV *sv = new_version(SV *ver);
485 Does not alter the passed in ver SV. See "upg_version" if you
493 Perl_new_version2(pTHX_ SV *ver)
495 Perl_new_version(pTHX_ SV *ver)
500 if ( ISA_VERSION_OBJ(ver) ) /* can just copy directly */
512 if ( SvROK(ver) )
513 ver = SvRV(ver);
516 if ( hv_exists(MUTABLE_HV(ver), "qv", 2) )
519 if ( hv_exists(MUTABLE_HV(ver), "alpha", 5) )
522 SV ** svp = hv_fetchs(MUTABLE_HV(ver), "width", FALSE);
529 SV ** svp = hv_fetchs(MUTABLE_HV(ver), "original", FALSE);
533 sav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(ver), "version", FALSE)));
547 const MAGIC* const mg = SvVSTRING_mg(ver);
567 SvSetSV_nosteal(rv, ver); /* make a duplicate */
591 #define GET_NUMERIC_VERSION(ver, sv, tbuf, buf, len) \
601 Perl_sv_setpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver)); \
606 len = my_snprintf(tbuf, sizeof(tbuf), "%.9" NVff, SvNVX(ver)); \
615 Perl_upg_version2(pTHX_ SV *ver, bool qv)
617 Perl_upg_version(pTHX_ SV *ver, bool qv)
630 if ( (SvUOK(ver) && SvUVX(ver) > VERSION_MAX)
631 || (SvIOK(ver) && SvIVX(ver) > VERSION_MAX) )
642 else if ( SvUOK(ver) || SvIOK(ver))
647 version = savesvpv(ver);
650 else if (SvNOK(ver) && !( SvPOK(ver) && SvCUR(ver) == 3 ) )
660 SV *sv = SvNVX(ver) > 10e37 ? newSV(64) : 0;
662 SV *sv = SvNVX(ver) > 10e50 ? newSV(64) : 0;
667 if (SvPOK(ver)) {
680 GET_NUMERIC_VERSION(ver, sv, tbuf, buf, len);
690 GET_NUMERIC_VERSION(ver, sv, tbuf, buf, len);
737 * effectively does: ver =~ s/radix/dot/ */
804 GET_NUMERIC_VERSION(ver, sv, tbuf, buf, len);
827 else if ( (mg = SvVSTRING_mg(ver)) ) { /* already a v-string */
833 else if ( SvPOK(ver))/* must be a string or something like a string */
837 version = savepvn(SvPV(ver,len), SvCUR(ver));
852 sv_setpvf(nsv,"v%vd",ver);
875 else if (SvIOKp(ver)) {
878 else if (SvNOKp(ver)) {
881 else if (SvPOKp(ver)) {
891 s = SCAN_VERSION(version, ver, qv);
901 return ver;