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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-07-28 11:05:18 +0100 (Sat, 28 Jul 2007)
New Revision: 3616

Modified:
   trunk/Devel-Declare/Declare.xs
Log:
must use aTHX_ for anything with a pTHX_ in proto

Modified: trunk/Devel-Declare/Declare.xs
===================================================================
--- trunk/Devel-Declare/Declare.xs	2007-07-28 03:47:27 UTC (rev 3615)
+++ trunk/Devel-Declare/Declare.xs	2007-07-28 10:05:18 UTC (rev 3616)
@@ -234,7 +234,7 @@
   SV** to_inject_ref;
   int i, pad_inject_list_last;
 
-  o = dd_old_ck_lineseq(o);
+  o = dd_old_ck_lineseq(aTHX_ o);
 
   pad_inject_list = get_av("Devel::Declare::next_pad_inject", FALSE);
   if (!pad_inject_list)