File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -693,12 +693,12 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
693
693
#endif
694
694
695
695
if (sv ) {
696
- Perl_sv_catpvf (aTHX_ sv , "%.9" NVff , SvNVX (ver ));
696
+ Perl_sv_catpvf (aTHX_ sv , "%.9" NVff , SvNVX (ver ));
697
697
len = SvCUR (sv );
698
698
buf = SvPVX (sv );
699
699
}
700
700
else {
701
- len = my_snprintf (tbuf , sizeof (tbuf ), "%.9" NVff , SvNVX (ver ));
701
+ len = my_snprintf (tbuf , sizeof (tbuf ), "%.9" NVff , SvNVX (ver ));
702
702
buf = tbuf ;
703
703
}
704
704
@@ -989,11 +989,11 @@ Perl_vnormal(pTHX_ SV *vs)
989
989
SV * tsv = * av_fetch (av , 0 , 0 );
990
990
digit = SvIV (tsv );
991
991
}
992
- sv = Perl_newSVpvf (aTHX_ "v%" IVdf , (IV )digit );
992
+ sv = Perl_newSVpvf (aTHX_ "v%" IVdf , (IV )digit );
993
993
for ( i = 1 ; i <= len ; i ++ ) {
994
994
SV * tsv = * av_fetch (av , i , 0 );
995
995
digit = SvIV (tsv );
996
- Perl_sv_catpvf (aTHX_ sv , ".%" IVdf , (IV )digit );
996
+ Perl_sv_catpvf (aTHX_ sv , ".%" IVdf , (IV )digit );
997
997
}
998
998
999
999
if ( len <= 2 ) { /* short version, must be at least three */
You can’t perform that action at this time.
0 commit comments