Changeset 14414 for dan

Timestamp:

06/22/08 15:28:35 (5 months ago)

Author:

yappo

Message:

PL_op は、今のオペコードが返るよ

Files:

• dan/perl/PL_check/trunk/hack.xs (modified) (1 diff)

dan/perl/PL_check/trunk/hack.xs

@@ -9 +9 @@
 OP * next_hack_ppaddr(pTHX) {
     PerlIO_printf(PerlIO_stderr(), "next_hack_ppaddr\n");
-   return PL_ppaddr[OP_NEXT](aTHXR);
+    // return PL_op->op_next; // これやると next 無効化 (次のオペコードが評価される)
+    return PL_ppaddr[OP_NEXT](aTHXR);
 }