Change 13738: [PATCH] ...while $var = glob(...)

[Jarkko Hietaniemi]

Change 13738 by jhi@alpha on 2001/12/17 18:43:55

        Subject: [PATCH] ...while $var = glob(...)
        From: Robin Houston <[EMAIL PROTECTED]> 
        Date: Mon, 17 Dec 2001 15:51:54 +0000
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/op.c#463 edit

Differences ...

==== //depot/perl/op.c#463 (text) ====
Index: perl/op.c
--- perl/op.c.~1~       Mon Dec 17 12:00:05 2001
+++ perl/op.c   Mon Dec 17 12:00:05 2001
@@ -4073,7 +4073,7 @@
              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;
End of Patch.