From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 20 Oct 1999 23:45:03 +0000 (+0000)
Subject: avoid coredump on C<sort { my $c; return $a cmp $b } ...>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=970c490586e0f01dd70401842b590223949989af;p=p5sagit%2Fp5-mst-13.2.git

avoid coredump on C<sort { my $c; return $a cmp $b } ...>

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

diff --git a/op.c b/op.c
index 64d801f..f38b26c 100644
--- a/op.c
+++ b/op.c
@@ -6187,7 +6187,7 @@ Perl_peep(pTHX_ register OP *o)
 	    break;
 
 	case OP_RETURN:
-	    if (o->op_next->op_type != OP_LEAVESUBLV) {
+	    if (o->op_next && o->op_next->op_type != OP_LEAVESUBLV) {
 		o->op_seq = PL_op_seqmax++;
 		break;
 	    }