]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
The global context isn't needed before we check the hint
authorVincent Pit <vince@profvince.com>
Fri, 1 Jan 2010 21:35:24 +0000 (22:35 +0100)
committerVincent Pit <vince@profvince.com>
Fri, 1 Jan 2010 21:35:24 +0000 (22:35 +0100)
Op.xs

diff --git a/Op.xs b/Op.xs
index 5c9413b18afdeb95f7e69f654532d2649d45ee15..ba33ea64b18c43d966768bcfc72a20d28ea43497 100644 (file)
--- a/Op.xs
+++ b/Op.xs
@@ -177,8 +177,6 @@ STATIC IV sub_op_hint(pTHX) {
 STATIC OP *(*sub_op_old_ck_entersub)(pTHX_ OP *) = 0;
 
 STATIC OP *sub_op_ck_entersub(pTHX_ OP *o) {
 STATIC OP *(*sub_op_old_ck_entersub)(pTHX_ OP *) = 0;
 
 STATIC OP *sub_op_ck_entersub(pTHX_ OP *o) {
- dMY_CXT;
-
  o = CALL_FPTR(sub_op_old_ck_entersub)(aTHX_ o);
 
  if (sub_op_hint()) {
  o = CALL_FPTR(sub_op_old_ck_entersub)(aTHX_ o);
 
  if (sub_op_hint()) {