Change 27477: Perl_newWHILEOP() had exactly the same lack of a NULL pointer check

[Steve Peters]

Change 27477 by [EMAIL PROTECTED] on 2006/03/11 22:08:34

        Perl_newWHILEOP() had exactly the same lack of a NULL pointer check
        that Perl_newLOOPOP() had and fixed in change #27476.  Maybe some 
        refactoring is needed?

Affected files ...

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

Differences ...

==== //depot/perl/op.c#785 (text) ====
Index: perl/op.c
--- perl/op.c#784~27476~        2006-03-11 13:41:20.000000000 -0800
+++ perl/op.c   2006-03-11 14:08:34.000000000 -0800
@@ -4299,10 +4299,10 @@
                break;
 
              case OP_SASSIGN:
-               if (k1->op_type == OP_READDIR
+               if (k1 && (k1->op_type == OP_READDIR
                      || k1->op_type == OP_GLOB
                      || (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
-                     || k1->op_type == OP_EACH)
+                     || k1->op_type == OP_EACH))
                    expr = newUNOP(OP_DEFINED, 0, expr);
                break;
            }
End of Patch.