Select Code to Download

    ...
    d = SvPVX(sv);
...
    else
    *d = d[1];

    d = SvPVX(sv);
    while (isALPHA(*d)) d++;
    while (isDIGIT(*d)) d++;

    if (*d) {

    sv_setnv(sv,Atof(SvPVX_const(sv)) + 1.0);

    Perl_croak(aTHX_ "String increment invalid on string '%s'", SvPVX(
+sv));