if ( *pos == '.' )
{
if ( saw_under )
- croak(aTHX_ "Invalid version format (underscores before decimal)");
+ Perl_croak(aTHX_ "Invalid version format (underscores before decimal)");
saw_period++ ;
}
else if ( *pos == '_' )
{
if ( saw_under )
- croak(aTHX_ "Invalid version format (multiple underscores)");
+ Perl_croak(aTHX_ "Invalid version format (multiple underscores)");
saw_under = 1;
}
pos++;
rev += (*end - '0') * mult;
mult *= 10;
if ( abs(orev) > abs(rev) )
- croak(aTHX_ "Integer overflow in version");
+ Perl_croak(aTHX_ "Integer overflow in version");
}
}