[win32] yet another 'old' patch

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 3a69670..f6857af 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1391,8 +1391,9 @@ my(OP *o)
     if (type == OP_LIST) {
        for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
            my(kid);
-    }
-    else if (type != OP_PADSV &&
+    } else if (type == OP_UNDEF) {
+       return op;
+    } else if (type != OP_PADSV &&
             type != OP_PADAV &&
             type != OP_PADHV &&
             type != OP_PUSHMARK)