Changeset 14411 for dan

Timestamp:

06/22/08 15:07:42 (5 months ago)

Author:

yappo

Message:

next をハック

Location:

dan/perl/PL_check/trunk

Files:

• hack.xs (modified) (2 diffs)
• test.pl (modified) (2 diffs)

dan/perl/PL_check/trunk/hack.xs

@@ -5 +5 @@
 #include "XSUB.h"
 
+#include "ppport.h"
+
+OP * next_hack_ppaddr(pTHX) {
+    PerlIO_printf(PerlIO_stderr(), "next_hack_ppaddr\n");
+   return PL_ppaddr[OP_NEXT](aTHXR);
+}
 
 static OP *(*hack_old_enterloop)(pTHX_ OP *op) = NULL;
@@ -32 +38 @@
 OP * hack_next(pTHX_ OP *o) {
    PerlIO_printf(PerlIO_stderr(), "hack_next\n");
+   o->op_ppaddr = next_hack_ppaddr;
    return CALL_FPTR(hack_old_next)(aTHX_ o);
 }

dan/perl/PL_check/trunk/test.pl

@@ -17 +17 @@
 
 
-exit;
+#exit;
+warn "running";
 
 so;
 BEGIN { warn "My->new" }
 my $obj = My->new;
-$obj->hoge;
+#$obj->hoge;
 
 while (1) {
@@ -29 +30 @@
 
 for (1..2) {
+    warn "for loop in";
     next;
+    warn "for after next";
 }
+warn "for end";
 
 for (1..2) {