croak() is better written Perl_croak() in C code.

p4raw-id: //depot/perl@17993

diff --git a/util.c b/util.c
index 80b17b7..90a0e91 100644 (file)
--- a/util.c
+++ b/util.c
@@ -4002,13 +4002,13 @@ Perl_scan_version(pTHX_ char *s, SV *rv)
        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++;
@@ -4042,7 +4042,7 @@ Perl_scan_version(pTHX_ char *s, SV *rv)
                    rev += (*end - '0') * mult;
                    mult *= 10;
                    if ( abs(orev) > abs(rev) )
-                       croak(aTHX_ "Integer overflow in version");
+                       Perl_croak(aTHX_ "Integer overflow in version");
                }
            }