[win32] yet another 'old' patch

	Message-Id: <199712040054.BAA04612@www.zweig.com>
	To: perl5-porters@perl.org
	Subject: Re: [PERL] buglet : minor but gratuitous inconsistency
		between `my' and `local' (Patch included)

p4raw-id: //depot/win32/perl@611

1 files changed, 3 insertions, 2 deletions

diff --git a/op.c b/op.c
index 3a696709e8..f6857af940 100644
--- 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)