[Bast-commits] r4870 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-04 03:31:35 +0100 (Sat, 04 Oct 2008)
New Revision: 4870

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Use croak instead of Perl_croak.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-01 17:13:51 UTC (rev 4869)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-04 02:31:35 UTC (rev 4870)
@@ -123,7 +123,7 @@
   SvGROW(PL_linestr, strlen(new_value));
 
   if (SvPVX(PL_linestr) != old_linestr)
-    Perl_croak(aTHX_ "forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
+    croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
 
   memcpy(SvPVX(PL_linestr), new_value, new_len+1);