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: 19883
Status: resolved
Priority: 0/
Queue: PPI

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

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



Subject: 'package' bareword used as hash key is detected as package statement
Download (untitled) / with headers
text/plain 177b
package Foo; sub foo { my %h = (package => 123); } When parsing the above code, you get two package statements. I've taken t/10_statement.t and adapted it (file attached).
Subject: 10a_package.t
Download 10a_package.t
text/x-perl 1.1k
#!/usr/bin/perl -w # Test the various PPI::Statement packages use strict; use lib (); use File::Spec::Functions ':ALL'; BEGIN { $| = 1; unless ( $ENV{HARNESS_ACTIVE} ) { require FindBin; $FindBin::Bin = $FindBin::Bin; # Avoid a warning chdir catdir( $FindBin::Bin, updir() ); lib->import( catdir('blib', 'arch'), catdir('blib', 'lib' ), catdir('lib'), ); } } # Load the code to test BEGIN { $PPI::XS_DISABLE = 1 } use PPI::Lexer (); # Execute the tests use Test::More tests => 3; use Scalar::Util 'refaddr'; ##################################################################### # Tests for PPI::Statement::Package { # Create a document with various example package statements my $Document = PPI::Lexer->lex_source( <<'END_PERL' ); package Foo; sub foo { my %h = (package => 123); } 1; END_PERL isa_ok( $Document, 'PPI::Document' ); # Check that both of the package statements are detected my $packages = $Document->find('Statement::Package'); is( scalar(@$packages), 1, 'Found 1 package statement' ); is( $packages->[0]->namespace, 'Foo', 'Package 1 returns correct namespace' ); } 1;
Fixed, will appear in 1.16


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.