From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 10 Oct 2002 19:52:00 +0000 (+0000)
Subject: croak() is better written Perl_croak() in C code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f89c282eacf9ef123bf0b311fb4124e837004d7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");
 		}
 	    }