Change 17993 by rgs@rgs-home on 2002/10/10 19:52:00
croak() is better written Perl_croak() in C code.
Affected files ...
.... //depot/perl/util.c#367 edit
Differences ...
==== //depot/perl/util.c#367 (text) ====
Index: perl/util.c
--- perl/util.c#366~17990~ Thu Oct 10 04:19:57 2002
+++ perl/util.c Thu Oct 10 12:52:00 2002
@@ -4002,13 +4002,13 @@
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 @@
rev += (*end - '0') * mult;
mult *= 10;
if ( abs(orev) > abs(rev) )
- croak(aTHX_ "Integer overflow in version");
+ Perl_croak(aTHX_ "Integer overflow in version");
}
}
End of Patch.
