[Bast-commits] r4452 - trunk/Devel-Declare

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-06-01 11:41:45 +0100 (Sun, 01 Jun 2008)
New Revision: 4452

Modified:
   trunk/Devel-Declare/Declare.xs
Log:
missed an aTHX_

Modified: trunk/Devel-Declare/Declare.xs
===================================================================
--- trunk/Devel-Declare/Declare.xs	2008-06-01 10:28:14 UTC (rev 4451)
+++ trunk/Devel-Declare/Declare.xs	2008-06-01 10:41:45 UTC (rev 4452)
@@ -249,7 +249,7 @@
 #endif
       SvGROW(PL_linestr, (STRLEN)(old_len + strlen(retstr)));
       if (start_diff = SvPVX(PL_linestr) - old_start) {
-        Perl_croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
+        Perl_croak(aTHX_ "forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
       }
       memmove(s+strlen(retstr), s, (PL_bufend - s)+1);
       memmove(s, retstr, strlen(retstr));