From 20408e3ccf502b6ce4033d8203710405ec9ef8f6 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 14 May 1998 10:53:55 +0000 Subject: [win32] merge change#896 from maintbranch p4raw-link: @896 on //depot/maint-5.004/perl: 0562b9ae2b0eff79632fc0164c13c34c06a019e2 p4raw-id: //depot/win32/perl@938 --- op.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'op.c') diff --git a/op.c b/op.c index 31b085d304..704ccde0e9 100644 --- a/op.c +++ b/op.c @@ -4877,6 +4877,8 @@ peep(register OP *o) o->op_seq = op_seqmax++; if (dowarn && o->op_next && o->op_next->op_type == OP_NEXTSTATE) { if (o->op_next->op_sibling && + o->op_next->op_sibling->op_type != OP_EXIT && + o->op_next->op_sibling->op_type != OP_WARN && o->op_next->op_sibling->op_type != OP_DIE) { line_t oldline = curcop->cop_line; -- cgit v1.2.1