Changeset 14702 for dan

Timestamp:

06/27/08 16:52:17 (5 months ago)

Author:

yappo

Message:

oops

Files:

• dan/perl/Object-with/branches/yappo/with.xs (modified) (1 diff)

dan/perl/Object-with/branches/yappo/with.xs

@@ -29 +29 @@
 void with_walkoptree_simple(pTHX_ OP *o, int is_leave) {
   if (o->op_type == OP_ENTERSUB) {
-    o->op_ppaddr = is_leave ? PL_ppaddr[PL_op->op_type] : with_entersub;
+    o->op_ppaddr = is_leave ? PL_ppaddr[o->op_type] : with_entersub;
   }