[Parseperl-discuss] Another regression: sub declaration not detected after bare block

[Chris D. <ch...@cl...>]

Adam,

Sorry for posting these bugs here instead of to RT, but it looks like  
you were about to do a 1.116 release, so I thought I'd hurry.  I've  
found these regressions by running the Perl-Critic test suite against  
the PPI svn head (r955).

Code:
{
     print 123;
}

sub a {
   return 123;
}


1.115 parse tree:
PPI::Document
   PPI::Structure::Block         { ... }
     PPI::Statement
       PPI::Token::Word          'print'
       PPI::Token::Number        '123'
       PPI::Token::Structure     ';'
   PPI::Statement::Sub
     PPI::Token::Word    'sub'
     PPI::Token::Word    'a'
     PPI::Structure::Block       { ... }
       PPI::Statement::Break
         PPI::Token::Word        'return'
         PPI::Token::Number      '123'
         PPI::Token::Structure   ';'

1.116 parse tree:
PPI::Document
   PPI::Statement
     PPI::Structure::Block       { ... }
       PPI::Statement
         PPI::Token::Word        'print'
         PPI::Token::Number      '123'
         PPI::Token::Structure   ';'
     PPI::Token::Word    'sub'
     PPI::Token::Word    'a'
     PPI::Structure::Block       { ... }
       PPI::Statement::Break
         PPI::Token::Word        'return'
         PPI::Token::Number      '123'
         PPI::Token::Structure   ';'


-- 
Chris Dolan, Software Developer, Clotho Advanced Media Inc.
608-294-7900, fax 294-7025, 1435 E Main St, Madison WI 53703
vCard: http://www.chrisdolan.net/ChrisDolan.vcf

Clotho Advanced Media, Inc. - Creators of MediaLandscape Software  
(http://www.media-landscape.com/) and partners in the revolutionary  
Croquet project (http://www.opencroquet.org/)