From: Robin Houston <robin@cpan.org>
Date: Mon, 17 Dec 2001 15:51:54 +0000 (+0000)
Subject: ...while $var = glob(...)
X-Git-Tag: accepted/trunk/20130322.191538~28785
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6531c3e64341456e3e8916932e223973bb680529;p=platform%2Fupstream%2Fperl.git

...while $var = glob(...)
Message-ID: <20011217155153.A311@robin.kitsite.com>

p4raw-id: //depot/perl@13738
---

diff --git a/op.c b/op.c
index cb891c4..a35c919 100644
--- a/op.c
+++ b/op.c
@@ -4073,7 +4073,7 @@ Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP *expr, OP *block)
 	      case OP_SASSIGN:
 		if (k1->op_type == OP_READDIR
 		      || k1->op_type == OP_GLOB
-		      || (k1->op_type == OP_NULL && k1->op_targ == OP_NULL)
+		      || (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
 		      || k1->op_type == OP_EACH)
 		    expr = newUNOP(OP_DEFINED, 0, expr);
 		break;