From: matthewt <matthewt@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sun, 1 Jun 2008 10:41:45 +0000 (+0000)
Subject: missed an aTHX_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=278a92e1e7aeae9a4c54a9bc705b63554ae4e3a8;p=p5sagit%2FDevel-Declare.git

missed an aTHX_

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-Declare@4452 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Declare.xs b/Declare.xs
index d15042a..450e81b 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -249,7 +249,7 @@ STATIC OP *dd_ck_rv2cv(pTHX_ OP *o) {
 #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));