From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 31 Oct 2003 18:54:26 +0000 (+0000)
Subject: Comment that this "optimisation" is actually a necessary fixup.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=838efab482d30d6a82835e2296e673cfa68c80a7;p=p5sagit%2Fp5-mst-13.2.git

Comment that this "optimisation" is actually a necessary fixup.
When the split occurs (to make the opti{miser,onal}) this isn't
(Richard Clamp reminded me that I forgot to do this)

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

diff --git a/op.c b/op.c
index 6beeae0..04df4de 100644
--- a/op.c
+++ b/op.c
@@ -6277,6 +6277,10 @@ Perl_peep(pTHX_ register OP *o)
 	    o->op_seq = PL_op_seqmax++;
 	    break;
 	case OP_STUB:
+	    /* XXX This makes sub {}; work as expected.
+	       ie {return;} not {return @_;}
+	       When optimiser is properly split into fixups and
+	       optimisations, this needs to stay in the fixups.  */
 	    if(!oldop &&
 	       o->op_next &&
 	       o->op_next->op_type == OP_LEAVESUB) {