This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #78586] Bleadperl eae48c89 breaks TIMB/Devel-NYTProf-4.05.tar.gz
authorZefram <zefram@fysh.org>
Thu, 11 Nov 2010 06:15:28 +0000 (22:15 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 11 Nov 2010 12:14:57 +0000 (04:14 -0800)
> $ perl -d:Trace <<END
> warn "1";
> {
>     warn "3";
> }
> warn "5";
> END
> >> -:1: warn "1";
> 1 at - line 1.
> >> -:5: warn "5";      <== wrong
> >> -:3:     warn "3";
> 3 at - line 3.
> >> -:5: warn "5";
> 5 at - line 5.

I believe this is fixed by a one line change (plus `make regen_perly`):

perly.y

diff --git a/perly.y b/perly.y
index b8de63b..bf51922 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -442,7 +442,6 @@ barestmt:   PLUGSTMT
                          /* a block is a loop that happens once */
                          $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
                                  (OP*)NULL, $1, $2, 0);
                          /* a block is a loop that happens once */
                          $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
                                  (OP*)NULL, $1, $2, 0);
-                         PL_parser->copline = NOLINE;
                        }
        |       PACKAGE WORD WORD '{' remember
                        {
                        }
        |       PACKAGE WORD WORD '{' remember
                        {