diff options
| author | Robin Houston <robin@cpan.org> | 2001-12-17 15:51:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 18:43:55 +0000 |
| commit | 6531c3e64341456e3e8916932e223973bb680529 (patch) | |
| tree | 731f3cf10b99ae9bf2fac0e2a83207d7fd00818c /op.c | |
| parent | 1c4db469cd1e8fb8078f63d9771e14df964cc680 (diff) | |
| download | perl-6531c3e64341456e3e8916932e223973bb680529.tar.gz | |
...while $var = glob(...)
Message-ID: <20011217155153.A311@robin.kitsite.com>
p4raw-id: //depot/perl@13738
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |