From: Florian Ragwitz <rafl@debian.org>
Date: Sat, 4 Oct 2008 02:31:35 +0000 (+0000)
Subject: Use croak instead of Perl_croak.
X-Git-Tag: 0.005000~84
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9eb22eb9913ce6855213c48d33cc36734c1998e;p=p5sagit%2FDevel-Declare.git

Use croak instead of Perl_croak.
---

diff --git a/Declare.xs b/Declare.xs
index 8b9bb37..4148673 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -123,7 +123,7 @@ void dd_set_linestr(pTHX_ char* new_value) {
   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);