Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the PPI CPAN distribution.

Report information
The Basics
Id: 21575
Status: resolved
Priority: 0/
Queue: PPI

People
Owner: Nobody in particular
Requestors: pguzis [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.116
Fixed in: (no value)



Subject: PPI::Statement::Variable::variables breaks for lists with leading whitespace
Download (untitled) / with headers
text/plain 290b
Variables are not correctly parsed by PPI::Statement::Variable::variables when those variables are contained in a list and the list has whitespace prior to the first variable. e.g.: my ($self, $param) = @_; # ok my ( $self, $param ) = @_; # not ok I have attached a patch to remedy this.
Subject: variable_patch.txt
Download variable_patch.txt
text/plain 452b
--- Variable.pm 2006-09-19 23:32:05.160950100 -0700 +++ Variable.pm 2006-09-19 23:31:55.232668100 -0700 @@ -135,7 +135,7 @@ # If it's a list, return as a list if ( _INSTANCE($schild[1], 'PPI::Structure::List') ) { - my $Expression = $schild[1]->child(0); + my $Expression = $schild[1]->schild(0); $Expression and $Expression->isa('PPI::Statement::Expression') or return ();
Applied test and patch as provided as SVN revision 1048.
Confirmed as resolved.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.