Hello community, here is the log from the commit of package perl-PPI for openSUSE:Factory checked in at 2017-06-26 15:56:24 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-PPI (Old) and /work/SRC/openSUSE:Factory/.perl-PPI.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PPI" Mon Jun 26 15:56:24 2017 rev:17 rq:506083 version:1.234 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-PPI/perl-PPI.changes 2017-05-24 16:47:18.400415132 +0200 +++ /work/SRC/openSUSE:Factory/.perl-PPI.new/perl-PPI.changes 2017-06-26 15:56:25.860399090 +0200 @@ -1,0 +2,38 @@ +Thu Jun 22 06:03:57 UTC 2017 - co...@suse.com + +- updated to 1.234 + see /usr/share/doc/packages/perl-PPI/Changes + + 1.234 Sun 21 June 2017 + Summary: + - Prevent sub names like v10 from being version strings + (GitHub #65) (MOREGAN) + + 1.232 Sun 21 June 2017 + Summary: + - add Changes entries forgotten in 1.230 + + 1.230 Sun 21 June 2017 + Summary: + - remove temporary fix introduced in 1.226 + - prevent possible regex on undefined scalar in + __current_token_is_forced_word + +------------------------------------------------------------------- +Wed Jun 21 06:11:28 UTC 2017 - co...@suse.com + +- updated to 1.228 + see /usr/share/doc/packages/perl-PPI/Changes + + 1.228 Sun 20 June 2017 + Summary: + - keep PPI::Dumper from breaking Perl::Critic under cperl 5.27 + (RURBAN) + + 1.226 Sun 20 June 2017 + Summary: + - Fix test reliance on '.' in @INC (KENTNL) + - temporary fix to keep an untested combination from blocking + Perl::Critic (https://github.com/chriscapaci) + +------------------------------------------------------------------- Old: ---- PPI-1.224.tar.gz New: ---- PPI-1.234.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PPI.spec ++++++ --- /var/tmp/diff_new_pack.rWddnH/_old 2017-06-26 15:56:26.352329720 +0200 +++ /var/tmp/diff_new_pack.rWddnH/_new 2017-06-26 15:56:26.356329156 +0200 @@ -17,7 +17,7 @@ Name: perl-PPI -Version: 1.224 +Version: 1.234 Release: 0 %define cpan_name PPI Summary: Parse, Analyze and Manipulate Perl (without perl) @@ -44,7 +44,6 @@ BuildRequires: perl(Test::More) >= 0.86 BuildRequires: perl(Test::Object) >= 0.07 BuildRequires: perl(Test::SubCalls) >= 1.07 -BuildRequires: perl(Test::Warn) >= 0.30 Requires: perl(Clone) >= 0.30 #Requires: perl(File::Spec) >= 3.2701 Requires: perl(IO::String) >= 1.07 ++++++ PPI-1.224.tar.gz -> PPI-1.234.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/Changes new/PPI-1.234/Changes --- old/PPI-1.224/Changes 2017-05-14 16:50:50.000000000 +0200 +++ new/PPI-1.234/Changes 2017-06-21 13:59:23.000000000 +0200 @@ -1,5 +1,31 @@ Revision history for Perl extension PPI +1.234 Sun 21 June 2017 + Summary: + - Prevent sub names like v10 from being version strings + (GitHub #65) (MOREGAN) + +1.232 Sun 21 June 2017 + Summary: + - add Changes entries forgotten in 1.230 + +1.230 Sun 21 June 2017 + Summary: + - remove temporary fix introduced in 1.226 + - prevent possible regex on undefined scalar in + __current_token_is_forced_word + +1.228 Sun 20 June 2017 + Summary: + - keep PPI::Dumper from breaking Perl::Critic under cperl 5.27 + (RURBAN) + +1.226 Sun 20 June 2017 + Summary: + - Fix test reliance on '.' in @INC (KENTNL) + - temporary fix to keep an untested combination from blocking + Perl::Critic (https://github.com/chriscapaci) + 1.224 Sun 14 May 2017 Summary: - updating an out-of-date meta.yml caused by Module::Install diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/META.yml new/PPI-1.234/META.yml --- old/PPI-1.224/META.yml 2017-05-14 16:56:55.000000000 +0200 +++ new/PPI-1.234/META.yml 2017-06-21 14:01:15.000000000 +0200 @@ -10,7 +10,6 @@ Test::More: '0.86' Test::Object: '0.07' Test::SubCalls: '1.07' - Test::Warn: '0.30' configure_requires: ExtUtils::MakeMaker: 6.59 distribution_type: module @@ -43,4 +42,4 @@ homepage: https://github.com/adamkennedy/PPI license: http://dev.perl.org/licenses/ repository: https://github.com/adamkennedy/PPI -version: '1.224' +version: '1.234' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/Makefile.PL new/PPI-1.234/Makefile.PL --- old/PPI-1.224/Makefile.PL 2017-05-14 16:26:03.000000000 +0200 +++ new/PPI-1.234/Makefile.PL 2017-06-21 13:08:46.000000000 +0200 @@ -40,7 +40,6 @@ test_requires 'Class::Inspector' => '1.22'; test_requires 'File::Remove' => '1.42'; test_requires 'Test::More' => '0.86'; -test_requires 'Test::Warn' => '0.30'; test_requires 'Test::Object' => '0.07'; test_requires 'Test::SubCalls' => '1.07'; test_requires 'Test::Deep'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Cache.pm new/PPI-1.234/lib/PPI/Cache.pm --- old/PPI-1.224/lib/PPI/Cache.pm 2017-05-14 16:49:53.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Cache.pm 2017-06-21 13:58:17.000000000 +0200 @@ -56,7 +56,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } use constant VMS => !! ( $^O eq 'VMS' ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Document/File.pm new/PPI-1.234/lib/PPI/Document/File.pm --- old/PPI-1.224/lib/PPI/Document/File.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Document/File.pm 2017-06-21 13:58:19.000000000 +0200 @@ -24,7 +24,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Document'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Document/Fragment.pm new/PPI-1.234/lib/PPI/Document/Fragment.pm --- old/PPI-1.224/lib/PPI/Document/Fragment.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Document/Fragment.pm 2017-06-21 13:58:19.000000000 +0200 @@ -23,7 +23,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Document'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Document/Normalized.pm new/PPI-1.234/lib/PPI/Document/Normalized.pm --- old/PPI-1.224/lib/PPI/Document/Normalized.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Document/Normalized.pm 2017-06-21 13:58:19.000000000 +0200 @@ -47,7 +47,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } use overload 'bool' => \&PPI::Util::TRUE; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Document.pm new/PPI-1.234/lib/PPI/Document.pm --- old/PPI-1.224/lib/PPI/Document.pm 2017-05-14 16:49:53.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Document.pm 2017-06-21 13:58:17.000000000 +0200 @@ -77,7 +77,7 @@ use vars qw{$VERSION @ISA $errstr}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Node'; $errstr = ''; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Dumper.pm new/PPI-1.234/lib/PPI/Dumper.pm --- old/PPI-1.224/lib/PPI/Dumper.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Dumper.pm 2017-06-21 13:58:17.000000000 +0200 @@ -37,7 +37,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } @@ -123,7 +123,8 @@ }, $class; # Handle the options - my %options = map { lc $_ } @_; + my @options = map { lc $_ } @_; # strict hashpairs # https://github.com/adamkennedy/PPI/issues/201 + my %options = @options; foreach ( keys %{$self->{display}} ) { if ( exists $options{$_} ) { if ( $_ eq 'indent' ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Element.pm new/PPI-1.234/lib/PPI/Element.pm --- old/PPI-1.224/lib/PPI/Element.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Element.pm 2017-06-21 13:58:17.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION $errstr %_PARENT}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; $errstr = ''; # Master Child -> Parent index diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Exception/ParserRejection.pm new/PPI-1.234/lib/PPI/Exception/ParserRejection.pm --- old/PPI-1.224/lib/PPI/Exception/ParserRejection.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Exception/ParserRejection.pm 2017-06-21 13:58:19.000000000 +0200 @@ -5,7 +5,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Exception'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Exception.pm new/PPI-1.234/lib/PPI/Exception.pm --- old/PPI-1.224/lib/PPI/Exception.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Exception.pm 2017-06-21 13:58:17.000000000 +0200 @@ -26,7 +26,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Find.pm new/PPI-1.234/lib/PPI/Find.pm --- old/PPI-1.224/lib/PPI/Find.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Find.pm 2017-06-21 13:58:17.000000000 +0200 @@ -76,7 +76,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Lexer.pm new/PPI-1.234/lib/PPI/Lexer.pm --- old/PPI-1.224/lib/PPI/Lexer.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Lexer.pm 2017-06-21 13:58:18.000000000 +0200 @@ -62,7 +62,7 @@ use vars qw{$VERSION $errstr *_PARENT %ROUND %RESOLVE}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; $errstr = ''; # Faster than having another method call just @@ -1150,6 +1150,10 @@ } } + # Are we the last argument of sub? + # E.g.: 'sub foo {}', 'sub foo ($) {}' + return 'PPI::Structure::Block' if $Parent->isa('PPI::Statement::Sub'); + # Are we the second or third argument of package? # E.g.: 'package Foo {}' or 'package Foo v1.2.3 {}' return 'PPI::Structure::Block' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Node.pm new/PPI-1.234/lib/PPI/Node.pm --- old/PPI-1.224/lib/PPI/Node.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Node.pm 2017-06-21 13:58:18.000000000 +0200 @@ -57,7 +57,7 @@ use vars qw{$VERSION @ISA *_PARENT}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Element'; *_PARENT = *PPI::Element::_PARENT; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Normal/Standard.pm new/PPI-1.234/lib/PPI/Normal/Standard.pm --- old/PPI-1.224/lib/PPI/Normal/Standard.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Normal/Standard.pm 2017-06-21 13:58:19.000000000 +0200 @@ -20,7 +20,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Normal.pm new/PPI-1.234/lib/PPI/Normal.pm --- old/PPI-1.224/lib/PPI/Normal.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Normal.pm 2017-06-21 13:58:18.000000000 +0200 @@ -42,7 +42,7 @@ use vars qw{$VERSION %LAYER}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; # Registered function store %LAYER = ( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Break.pm new/PPI-1.234/lib/PPI/Statement/Break.pm --- old/PPI-1.224/lib/PPI/Statement/Break.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Break.pm 2017-06-21 13:58:19.000000000 +0200 @@ -42,7 +42,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Compound.pm new/PPI-1.234/lib/PPI/Statement/Compound.pm --- old/PPI-1.224/lib/PPI/Statement/Compound.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Compound.pm 2017-06-21 13:58:19.000000000 +0200 @@ -55,7 +55,7 @@ use vars qw{$VERSION @ISA %TYPES}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; # Keyword type map diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Data.pm new/PPI-1.234/lib/PPI/Statement/Data.pm --- old/PPI-1.224/lib/PPI/Statement/Data.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Data.pm 2017-06-21 13:58:19.000000000 +0200 @@ -45,7 +45,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/End.pm new/PPI-1.234/lib/PPI/Statement/End.pm --- old/PPI-1.224/lib/PPI/Statement/End.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/End.pm 2017-06-21 13:58:19.000000000 +0200 @@ -49,7 +49,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Expression.pm new/PPI-1.234/lib/PPI/Statement/Expression.pm --- old/PPI-1.224/lib/PPI/Statement/Expression.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Expression.pm 2017-06-21 13:58:19.000000000 +0200 @@ -40,7 +40,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Given.pm new/PPI-1.234/lib/PPI/Statement/Given.pm --- old/PPI-1.224/lib/PPI/Statement/Given.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Given.pm 2017-06-21 13:58:19.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Include/Perl6.pm new/PPI-1.234/lib/PPI/Statement/Include/Perl6.pm --- old/PPI-1.224/lib/PPI/Statement/Include/Perl6.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Include/Perl6.pm 2017-06-21 13:58:19.000000000 +0200 @@ -43,7 +43,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement::Include'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Include.pm new/PPI-1.234/lib/PPI/Statement/Include.pm --- old/PPI-1.224/lib/PPI/Statement/Include.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Include.pm 2017-06-21 13:58:19.000000000 +0200 @@ -50,7 +50,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Null.pm new/PPI-1.234/lib/PPI/Statement/Null.pm --- old/PPI-1.224/lib/PPI/Statement/Null.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Null.pm 2017-06-21 13:58:19.000000000 +0200 @@ -45,7 +45,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Package.pm new/PPI-1.234/lib/PPI/Statement/Package.pm --- old/PPI-1.224/lib/PPI/Statement/Package.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Package.pm 2017-06-21 13:58:19.000000000 +0200 @@ -43,7 +43,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Scheduled.pm new/PPI-1.234/lib/PPI/Statement/Scheduled.pm --- old/PPI-1.224/lib/PPI/Statement/Scheduled.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Scheduled.pm 2017-06-21 13:58:19.000000000 +0200 @@ -58,7 +58,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement::Sub'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Sub.pm new/PPI-1.234/lib/PPI/Statement/Sub.pm --- old/PPI-1.224/lib/PPI/Statement/Sub.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Sub.pm 2017-06-21 13:58:19.000000000 +0200 @@ -37,7 +37,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Unknown.pm new/PPI-1.234/lib/PPI/Statement/Unknown.pm --- old/PPI-1.224/lib/PPI/Statement/Unknown.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Unknown.pm 2017-06-21 13:58:19.000000000 +0200 @@ -37,7 +37,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/UnmatchedBrace.pm new/PPI-1.234/lib/PPI/Statement/UnmatchedBrace.pm --- old/PPI-1.224/lib/PPI/Statement/UnmatchedBrace.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/UnmatchedBrace.pm 2017-06-21 13:58:19.000000000 +0200 @@ -49,7 +49,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/Variable.pm new/PPI-1.234/lib/PPI/Statement/Variable.pm --- old/PPI-1.224/lib/PPI/Statement/Variable.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/Variable.pm 2017-06-21 13:58:19.000000000 +0200 @@ -44,7 +44,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement::Expression'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement/When.pm new/PPI-1.234/lib/PPI/Statement/When.pm --- old/PPI-1.224/lib/PPI/Statement/When.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement/When.pm 2017-06-21 13:58:19.000000000 +0200 @@ -44,7 +44,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Statement'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Statement.pm new/PPI-1.234/lib/PPI/Statement.pm --- old/PPI-1.224/lib/PPI/Statement.pm 2017-05-14 16:49:54.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Statement.pm 2017-06-21 13:58:18.000000000 +0200 @@ -154,7 +154,7 @@ use vars qw{$VERSION @ISA *_PARENT}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Node'; *_PARENT = *PPI::Element::_PARENT; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Block.pm new/PPI-1.234/lib/PPI/Structure/Block.pm --- old/PPI-1.224/lib/PPI/Structure/Block.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Block.pm 2017-06-21 13:58:19.000000000 +0200 @@ -45,7 +45,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Condition.pm new/PPI-1.234/lib/PPI/Structure/Condition.pm --- old/PPI-1.224/lib/PPI/Structure/Condition.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Condition.pm 2017-06-21 13:58:19.000000000 +0200 @@ -40,7 +40,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Constructor.pm new/PPI-1.234/lib/PPI/Structure/Constructor.pm --- old/PPI-1.224/lib/PPI/Structure/Constructor.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Constructor.pm 2017-06-21 13:58:19.000000000 +0200 @@ -35,7 +35,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/For.pm new/PPI-1.234/lib/PPI/Structure/For.pm --- old/PPI-1.224/lib/PPI/Structure/For.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/For.pm 2017-06-21 13:58:19.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Given.pm new/PPI-1.234/lib/PPI/Structure/Given.pm --- old/PPI-1.224/lib/PPI/Structure/Given.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Given.pm 2017-06-21 13:58:19.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/List.pm new/PPI-1.234/lib/PPI/Structure/List.pm --- old/PPI-1.224/lib/PPI/Structure/List.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/List.pm 2017-06-21 13:58:19.000000000 +0200 @@ -39,7 +39,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Subscript.pm new/PPI-1.234/lib/PPI/Structure/Subscript.pm --- old/PPI-1.224/lib/PPI/Structure/Subscript.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Subscript.pm 2017-06-21 13:58:19.000000000 +0200 @@ -41,7 +41,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/Unknown.pm new/PPI-1.234/lib/PPI/Structure/Unknown.pm --- old/PPI-1.224/lib/PPI/Structure/Unknown.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/Unknown.pm 2017-06-21 13:58:19.000000000 +0200 @@ -42,7 +42,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure/When.pm new/PPI-1.234/lib/PPI/Structure/When.pm --- old/PPI-1.224/lib/PPI/Structure/When.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure/When.pm 2017-06-21 13:58:19.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Structure'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Structure.pm new/PPI-1.234/lib/PPI/Structure.pm --- old/PPI-1.224/lib/PPI/Structure.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Structure.pm 2017-06-21 13:58:18.000000000 +0200 @@ -96,7 +96,7 @@ use vars qw{$VERSION @ISA *_PARENT}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Node'; *_PARENT = *PPI::Element::_PARENT; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/ArrayIndex.pm new/PPI-1.234/lib/PPI/Token/ArrayIndex.pm --- old/PPI-1.224/lib/PPI/Token/ArrayIndex.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/ArrayIndex.pm 2017-06-21 13:58:19.000000000 +0200 @@ -29,7 +29,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Attribute.pm new/PPI-1.234/lib/PPI/Token/Attribute.pm --- old/PPI-1.224/lib/PPI/Token/Attribute.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Attribute.pm 2017-06-21 13:58:19.000000000 +0200 @@ -35,7 +35,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/BOM.pm new/PPI-1.234/lib/PPI/Token/BOM.pm --- old/PPI-1.224/lib/PPI/Token/BOM.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/BOM.pm 2017-06-21 13:58:19.000000000 +0200 @@ -44,7 +44,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Cast.pm new/PPI-1.234/lib/PPI/Token/Cast.pm --- old/PPI-1.224/lib/PPI/Token/Cast.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Cast.pm 2017-06-21 13:58:19.000000000 +0200 @@ -34,7 +34,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Comment.pm new/PPI-1.234/lib/PPI/Token/Comment.pm --- old/PPI-1.224/lib/PPI/Token/Comment.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Comment.pm 2017-06-21 13:58:19.000000000 +0200 @@ -63,7 +63,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/DashedWord.pm new/PPI-1.234/lib/PPI/Token/DashedWord.pm --- old/PPI-1.224/lib/PPI/Token/DashedWord.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/DashedWord.pm 2017-06-21 13:58:19.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Data.pm new/PPI-1.234/lib/PPI/Token/Data.pm --- old/PPI-1.224/lib/PPI/Token/Data.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Data.pm 2017-06-21 13:58:19.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/End.pm new/PPI-1.234/lib/PPI/Token/End.pm --- old/PPI-1.224/lib/PPI/Token/End.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/End.pm 2017-06-21 13:58:19.000000000 +0200 @@ -45,7 +45,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/HereDoc.pm new/PPI-1.234/lib/PPI/Token/HereDoc.pm --- old/PPI-1.224/lib/PPI/Token/HereDoc.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/HereDoc.pm 2017-06-21 13:58:20.000000000 +0200 @@ -89,7 +89,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Label.pm new/PPI-1.234/lib/PPI/Token/Label.pm --- old/PPI-1.224/lib/PPI/Token/Label.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Label.pm 2017-06-21 13:58:20.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Magic.pm new/PPI-1.234/lib/PPI/Token/Magic.pm --- old/PPI-1.224/lib/PPI/Token/Magic.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Magic.pm 2017-06-21 13:58:20.000000000 +0200 @@ -47,7 +47,7 @@ use vars qw{$VERSION @ISA %magic}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Symbol'; # Magic variables taken from perlvar. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Binary.pm new/PPI-1.234/lib/PPI/Token/Number/Binary.pm --- old/PPI-1.224/lib/PPI/Token/Number/Binary.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Binary.pm 2017-06-21 13:58:21.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Exp.pm new/PPI-1.234/lib/PPI/Token/Number/Exp.pm --- old/PPI-1.224/lib/PPI/Token/Number/Exp.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Exp.pm 2017-06-21 13:58:21.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number::Float'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Float.pm new/PPI-1.234/lib/PPI/Token/Number/Float.pm --- old/PPI-1.224/lib/PPI/Token/Number/Float.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Float.pm 2017-06-21 13:58:21.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Hex.pm new/PPI-1.234/lib/PPI/Token/Number/Hex.pm --- old/PPI-1.224/lib/PPI/Token/Number/Hex.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Hex.pm 2017-06-21 13:58:21.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Octal.pm new/PPI-1.234/lib/PPI/Token/Number/Octal.pm --- old/PPI-1.224/lib/PPI/Token/Number/Octal.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Octal.pm 2017-06-21 13:58:21.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number/Version.pm new/PPI-1.234/lib/PPI/Token/Number/Version.pm --- old/PPI-1.224/lib/PPI/Token/Number/Version.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number/Version.pm 2017-06-21 13:58:21.000000000 +0200 @@ -35,7 +35,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Number'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Number.pm new/PPI-1.234/lib/PPI/Token/Number.pm --- old/PPI-1.224/lib/PPI/Token/Number.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Number.pm 2017-06-21 13:58:20.000000000 +0200 @@ -34,7 +34,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Operator.pm new/PPI-1.234/lib/PPI/Token/Operator.pm --- old/PPI-1.224/lib/PPI/Token/Operator.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Operator.pm 2017-06-21 13:58:20.000000000 +0200 @@ -44,7 +44,7 @@ use vars qw{$VERSION @ISA %OPERATOR}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; # Build the operator index diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Pod.pm new/PPI-1.234/lib/PPI/Token/Pod.pm --- old/PPI-1.224/lib/PPI/Token/Pod.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Pod.pm 2017-06-21 13:58:20.000000000 +0200 @@ -30,7 +30,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Prototype.pm new/PPI-1.234/lib/PPI/Token/Prototype.pm --- old/PPI-1.224/lib/PPI/Token/Prototype.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Prototype.pm 2017-06-21 13:58:20.000000000 +0200 @@ -51,7 +51,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Quote/Double.pm new/PPI-1.234/lib/PPI/Token/Quote/Double.pm --- old/PPI-1.224/lib/PPI/Token/Quote/Double.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Quote/Double.pm 2017-06-21 13:58:21.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Simple PPI::Token::Quote diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Quote/Interpolate.pm new/PPI-1.234/lib/PPI/Token/Quote/Interpolate.pm --- old/PPI-1.224/lib/PPI/Token/Quote/Interpolate.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Quote/Interpolate.pm 2017-06-21 13:58:21.000000000 +0200 @@ -32,7 +32,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::Quote diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Quote/Literal.pm new/PPI-1.234/lib/PPI/Token/Quote/Literal.pm --- old/PPI-1.224/lib/PPI/Token/Quote/Literal.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Quote/Literal.pm 2017-06-21 13:58:21.000000000 +0200 @@ -32,7 +32,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::Quote diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Quote/Single.pm new/PPI-1.234/lib/PPI/Token/Quote/Single.pm --- old/PPI-1.224/lib/PPI/Token/Quote/Single.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Quote/Single.pm 2017-06-21 13:58:21.000000000 +0200 @@ -38,7 +38,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Simple PPI::Token::Quote diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Quote.pm new/PPI-1.234/lib/PPI/Token/Quote.pm --- old/PPI-1.224/lib/PPI/Token/Quote.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Quote.pm 2017-06-21 13:58:20.000000000 +0200 @@ -50,7 +50,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike/Backtick.pm new/PPI-1.234/lib/PPI/Token/QuoteLike/Backtick.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike/Backtick.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike/Backtick.pm 2017-06-21 13:58:21.000000000 +0200 @@ -32,7 +32,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Simple PPI::Token::QuoteLike diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike/Command.pm new/PPI-1.234/lib/PPI/Token/QuoteLike/Command.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike/Command.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike/Command.pm 2017-06-21 13:58:21.000000000 +0200 @@ -32,7 +32,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::QuoteLike diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike/Readline.pm new/PPI-1.234/lib/PPI/Token/QuoteLike/Readline.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike/Readline.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike/Readline.pm 2017-06-21 13:58:21.000000000 +0200 @@ -41,7 +41,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::QuoteLike diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike/Regexp.pm new/PPI-1.234/lib/PPI/Token/QuoteLike/Regexp.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike/Regexp.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike/Regexp.pm 2017-06-21 13:58:21.000000000 +0200 @@ -35,7 +35,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::QuoteLike diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike/Words.pm new/PPI-1.234/lib/PPI/Token/QuoteLike/Words.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike/Words.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike/Words.pm 2017-06-21 13:58:21.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::QuoteLike diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/QuoteLike.pm new/PPI-1.234/lib/PPI/Token/QuoteLike.pm --- old/PPI-1.224/lib/PPI/Token/QuoteLike.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/QuoteLike.pm 2017-06-21 13:58:20.000000000 +0200 @@ -50,7 +50,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Regexp/Match.pm new/PPI-1.234/lib/PPI/Token/Regexp/Match.pm --- old/PPI-1.224/lib/PPI/Token/Regexp/Match.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Regexp/Match.pm 2017-06-21 13:58:21.000000000 +0200 @@ -46,7 +46,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::Regexp diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Regexp/Substitute.pm new/PPI-1.234/lib/PPI/Token/Regexp/Substitute.pm --- old/PPI-1.224/lib/PPI/Token/Regexp/Substitute.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Regexp/Substitute.pm 2017-06-21 13:58:21.000000000 +0200 @@ -36,7 +36,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::Regexp diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Regexp/Transliterate.pm new/PPI-1.234/lib/PPI/Token/Regexp/Transliterate.pm --- old/PPI-1.224/lib/PPI/Token/Regexp/Transliterate.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Regexp/Transliterate.pm 2017-06-21 13:58:21.000000000 +0200 @@ -40,7 +40,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = qw{ PPI::Token::_QuoteEngine::Full PPI::Token::Regexp diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Regexp.pm new/PPI-1.234/lib/PPI/Token/Regexp.pm --- old/PPI-1.224/lib/PPI/Token/Regexp.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Regexp.pm 2017-06-21 13:58:20.000000000 +0200 @@ -47,7 +47,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Separator.pm new/PPI-1.234/lib/PPI/Token/Separator.pm --- old/PPI-1.224/lib/PPI/Token/Separator.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Separator.pm 2017-06-21 13:58:20.000000000 +0200 @@ -37,7 +37,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::Word'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Structure.pm new/PPI-1.234/lib/PPI/Token/Structure.pm --- old/PPI-1.224/lib/PPI/Token/Structure.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Structure.pm 2017-06-21 13:58:20.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Symbol.pm new/PPI-1.234/lib/PPI/Token/Symbol.pm --- old/PPI-1.224/lib/PPI/Token/Symbol.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Symbol.pm 2017-06-21 13:58:20.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Unknown.pm new/PPI-1.234/lib/PPI/Token/Unknown.pm --- old/PPI-1.224/lib/PPI/Token/Unknown.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Unknown.pm 2017-06-21 13:58:20.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION @ISA $CURLY_SYMBOL}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; $CURLY_SYMBOL = qr{\G\^[[:upper:]_]\w+\}}; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Whitespace.pm new/PPI-1.234/lib/PPI/Token/Whitespace.pm --- old/PPI-1.224/lib/PPI/Token/Whitespace.pm 2017-05-14 16:49:56.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Whitespace.pm 2017-06-21 13:58:20.000000000 +0200 @@ -47,7 +47,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/Word.pm new/PPI-1.234/lib/PPI/Token/Word.pm --- old/PPI-1.224/lib/PPI/Token/Word.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/Word.pm 2017-06-21 13:58:20.000000000 +0200 @@ -40,7 +40,7 @@ use vars qw{$VERSION @ISA %OPERATOR %QUOTELIKE %KEYWORDS}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token'; # Copy in OPERATOR from PPI::Token::Operator @@ -187,24 +187,25 @@ return $t->{class}->__TOKENIZER__commit( $t ); } - # Check for a quote like operator - my @tokens = $t->_previous_significant_tokens(1); my $word = $t->{token}->{content}; - if ( $QUOTELIKE{$word} and ! $class->__TOKENIZER__literal($t, $word, \@tokens) ) { - $t->{class} = $t->{token}->set_class( $QUOTELIKE{$word} ); - return $t->{class}->__TOKENIZER__on_char( $t ); - } + if ( $KEYWORDS{$word} ) { + # Check for a Perl keyword that is forced to be a normal word instead + if ( $t->__current_token_is_forced_word ) { + $t->{class} = $t->{token}->set_class( 'Word' ); + return $t->{class}->__TOKENIZER__on_char( $t ); + } - # Check for a Perl keyword that is forced to be a normal word instead - if ( $KEYWORDS{$word} and $class->__TOKENIZER__literal($t, $word, \@tokens) ) { - $t->{class} = $t->{token}->set_class( 'Word' ); - return $t->{class}->__TOKENIZER__on_char( $t ); - } + # Check for a quote like operator. %QUOTELIKE must be subset of %KEYWORDS + if ( $QUOTELIKE{$word} ) { + $t->{class} = $t->{token}->set_class( $QUOTELIKE{$word} ); + return $t->{class}->__TOKENIZER__on_char( $t ); + } - # Or one of the word operators - if ( $OPERATOR{$word} and ! $class->__TOKENIZER__literal($t, $word, \@tokens) ) { - $t->{class} = $t->{token}->set_class( 'Operator' ); - return $t->_finalize_token->__TOKENIZER__on_char( $t ); + # Or one of the word operators. %OPERATOR must be subset of %KEYWORDS + if ( $OPERATOR{$word} ) { + $t->{class} = $t->{token}->set_class( 'Operator' ); + return $t->_finalize_token->__TOKENIZER__on_char( $t ); + } } # Unless this is a simple identifier, at this point @@ -313,13 +314,12 @@ return 0; } - my @tokens = $t->_previous_significant_tokens(2); my $token_class; if ( $word =~ /\:/ ) { # Since it's not a simple identifier... $token_class = 'Word'; - } elsif ( $class->__TOKENIZER__literal($t, $word, \@tokens) ) { + } elsif ( $KEYWORDS{$word} and $t->__current_token_is_forced_word ) { $token_class = 'Word'; } elsif ( $QUOTELIKE{$word} ) { @@ -372,48 +372,6 @@ $t->_finalize_token->__TOKENIZER__on_char($t); } -# Is the word in a "forced" context, and thus cannot be either an -# operator or a quote-like thing. This version is only useful -# during tokenization. -sub __TOKENIZER__literal { - my ($class, $t, $word, $tokens) = @_; - - # Is this a forced-word context? - # i.e. Would normally be seen as an operator. - return '' if !$KEYWORDS{$word}; - - # Check the cases when we have previous tokens - pos $t->{line} = $t->{line_cursor}; - my $token = $tokens->[0]; - - # In addition, if the word is followed by => it is probably - # also actually a word and not a regex. - if ( $t->{line} =~ /\G\s*=>/gc ) { - return 1; - } - - return '' if not $token; - - # We are forced if we are a method name - return 1 if $token->{content} eq '->'; - - # We are forced if we are a sub name or a package name - my $prev = $tokens->[1]; - return 1 - if $token->isa( 'PPI::Token::Word' ) - and ( $token->{content} eq 'sub' or $token->{content} eq 'package' ) - and ( not $prev or not( $prev->isa( "PPI::Token::Operator" ) and $prev->{content} eq '->' ) ); - - # If we are contained in a pair of curly braces, - # we are probably a bareword hash key - if ( $token->{content} eq '{' and $t->{line} =~ /\G\s*\}/gc ) { - return 1; - } - - # Otherwise we probably aren't forced - ''; -} - # Is the current Word really a subroutine attribute? diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/_QuoteEngine/Full.pm new/PPI-1.234/lib/PPI/Token/_QuoteEngine/Full.pm --- old/PPI-1.224/lib/PPI/Token/_QuoteEngine/Full.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/_QuoteEngine/Full.pm 2017-06-21 13:58:21.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA %quotes %sections}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::_QuoteEngine'; # Prototypes for the different braced sections diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/_QuoteEngine/Simple.pm new/PPI-1.234/lib/PPI/Token/_QuoteEngine/Simple.pm --- old/PPI-1.224/lib/PPI/Token/_QuoteEngine/Simple.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/_QuoteEngine/Simple.pm 2017-06-21 13:58:21.000000000 +0200 @@ -7,7 +7,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Token::_QuoteEngine'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token/_QuoteEngine.pm new/PPI-1.234/lib/PPI/Token/_QuoteEngine.pm --- old/PPI-1.224/lib/PPI/Token/_QuoteEngine.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token/_QuoteEngine.pm 2017-06-21 13:58:21.000000000 +0200 @@ -35,7 +35,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Token.pm new/PPI-1.234/lib/PPI/Token.pm --- old/PPI-1.224/lib/PPI/Token.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Token.pm 2017-06-21 13:58:18.000000000 +0200 @@ -27,7 +27,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'PPI::Element'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Tokenizer.pm new/PPI-1.234/lib/PPI/Tokenizer.pm --- old/PPI-1.224/lib/PPI/Tokenizer.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Tokenizer.pm 2017-06-21 13:58:19.000000000 +0200 @@ -89,7 +89,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } # The x operator cannot follow most Perl operators, implying that @@ -833,7 +833,7 @@ # We also have to make sure that the sub/package/etc doing the forcing # is not a method call. if( $USUALLY_FORCES{$content}) { - return if $word =~ /^v[0-9]+$/ and ( $content eq "use" or $content eq "no" ); + return if defined $word and $word =~ /^v[0-9]+$/ and ( $content eq "use" or $content eq "no" ); return 1 if not $prevprev; return 1 if not $USUALLY_FORCES{$prevprev->content} and $prevprev->content ne '->'; return; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Transform/UpdateCopyright.pm new/PPI-1.234/lib/PPI/Transform/UpdateCopyright.pm --- old/PPI-1.224/lib/PPI/Transform/UpdateCopyright.pm 2017-05-14 16:49:57.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Transform/UpdateCopyright.pm 2017-06-21 13:58:21.000000000 +0200 @@ -33,7 +33,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Transform.pm new/PPI-1.234/lib/PPI/Transform.pm --- old/PPI-1.224/lib/PPI/Transform.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Transform.pm 2017-06-21 13:58:19.000000000 +0200 @@ -23,7 +23,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/Util.pm new/PPI-1.234/lib/PPI/Util.pm --- old/PPI-1.224/lib/PPI/Util.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/Util.pm 2017-06-21 13:58:19.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA @EXPORT_OK}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'Exporter'; @EXPORT_OK = qw{_Document _slurp}; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI/XSAccessor.pm new/PPI-1.234/lib/PPI/XSAccessor.pm --- old/PPI-1.224/lib/PPI/XSAccessor.pm 2017-05-14 16:49:55.000000000 +0200 +++ new/PPI-1.234/lib/PPI/XSAccessor.pm 2017-06-21 13:58:19.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/lib/PPI.pm new/PPI-1.234/lib/PPI.pm --- old/PPI-1.224/lib/PPI.pm 2017-05-14 16:49:53.000000000 +0200 +++ new/PPI-1.234/lib/PPI.pm 2017-06-21 13:58:17.000000000 +0200 @@ -8,7 +8,7 @@ # Set the version for CPAN use vars qw{$VERSION $XS_COMPATIBLE @XS_EXCLUDE}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; $XS_COMPATIBLE = '0.845'; @XS_EXCLUDE = (); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/lib/Helper.pm new/PPI-1.234/t/lib/Helper.pm --- old/PPI-1.224/t/lib/Helper.pm 2017-05-14 16:50:01.000000000 +0200 +++ new/PPI-1.234/t/lib/Helper.pm 2017-06-21 13:58:25.000000000 +0200 @@ -4,7 +4,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } @EXPORT_OK = qw( check_with ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/lib/PPI/Test/Object.pm new/PPI-1.234/t/lib/PPI/Test/Object.pm --- old/PPI-1.224/t/lib/PPI/Test/Object.pm 2017-05-14 16:50:01.000000000 +0200 +++ new/PPI-1.234/t/lib/PPI/Test/Object.pm 2017-06-21 13:58:25.000000000 +0200 @@ -11,7 +11,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/lib/PPI/Test/Run.pm new/PPI-1.234/t/lib/PPI/Test/Run.pm --- old/PPI-1.224/t/lib/PPI/Test/Run.pm 2017-05-14 16:50:01.000000000 +0200 +++ new/PPI-1.234/t/lib/PPI/Test/Run.pm 2017-06-21 13:58:25.000000000 +0200 @@ -11,7 +11,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/lib/PPI/Test/pragmas.pm new/PPI-1.234/t/lib/PPI/Test/pragmas.pm --- old/PPI-1.224/t/lib/PPI/Test/pragmas.pm 2017-05-14 16:50:01.000000000 +0200 +++ new/PPI-1.234/t/lib/PPI/Test/pragmas.pm 2017-06-21 13:58:25.000000000 +0200 @@ -22,7 +22,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; } BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/lib/PPI/Test.pm new/PPI-1.234/t/lib/PPI/Test.pm --- old/PPI-1.224/t/lib/PPI/Test.pm 2017-05-14 16:50:01.000000000 +0200 +++ new/PPI-1.234/t/lib/PPI/Test.pm 2017-06-21 13:58:25.000000000 +0200 @@ -7,7 +7,7 @@ use vars qw{$VERSION @ISA @EXPORT_OK %EXPORT_TAGS}; BEGIN { - $VERSION = '1.224'; + $VERSION = '1.234'; @ISA = 'Exporter'; @EXPORT_OK = qw( find_files quotable pause ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/marpa.t new/PPI-1.234/t/marpa.t --- old/PPI-1.224/t/marpa.t 2017-05-14 15:19:58.000000000 +0200 +++ new/PPI-1.234/t/marpa.t 2017-06-21 13:08:46.000000000 +0200 @@ -2,7 +2,8 @@ # Unit testing for PPI::Token::Unknown -use t::lib::PPI::Test::pragmas; +use lib 't/lib'; +use PPI::Test::pragmas; use Test::More tests => 23 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 ); use B 'perlstring'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/ppi_statement_sub.t new/PPI-1.234/t/ppi_statement_sub.t --- old/PPI-1.224/t/ppi_statement_sub.t 2017-05-14 15:19:58.000000000 +0200 +++ new/PPI-1.234/t/ppi_statement_sub.t 2017-06-21 13:47:48.000000000 +0200 @@ -172,8 +172,6 @@ return; } -my %known_bad = map { ( "sub $_" => 1 ) } 'scalar { 1 }', 'scalar { 1 }', 'bless { 1 }', 'bless { 1 }', 'return { 1 }', 'return { 1 }'; - KEYWORDS_AS_SUB_NAMES: { my @names = ( # normal name @@ -231,8 +229,6 @@ sub test_subs { my ( $code, $expected_sub_tokens ) = @_; -TODO: { - local $TODO = $known_bad{$code} ? "known bug" : undef; subtest "'$code'", => sub { my $Document = PPI::Document->new( \"$code 999;" ); @@ -248,7 +244,6 @@ is( eval { $Document->schild(1)->schild(0) }, '999', "number correct" ); }; -} return; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/ppi_token_attribute.t new/PPI-1.234/t/ppi_token_attribute.t --- old/PPI-1.224/t/ppi_token_attribute.t 2017-05-14 15:19:58.000000000 +0200 +++ new/PPI-1.234/t/ppi_token_attribute.t 2017-06-21 13:47:48.000000000 +0200 @@ -12,8 +12,6 @@ sub execute_test; sub permute_test; -my %known_fails_sblock = map { $_ => 1 } 'sub foo:{}', 'sub foo : {}'; - PARSING_AND_METHODS: { # no attribute execute_test 'sub foo {}', []; @@ -83,7 +81,6 @@ my $blocks = $Document->find( 'PPI::Structure::Block') || []; my $blocks_expected = $code =~ m/{}$/ ? [ '{}' ] : []; - local $TODO = "known bug" if $known_fails_sblock{$code}; is_deeply( [ map { $_->content } @$blocks ], $blocks_expected, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PPI-1.224/t/ppi_token_quote_literal.t new/PPI-1.234/t/ppi_token_quote_literal.t --- old/PPI-1.224/t/ppi_token_quote_literal.t 2017-05-14 15:19:58.000000000 +0200 +++ new/PPI-1.234/t/ppi_token_quote_literal.t 2017-06-21 13:47:48.000000000 +0200 @@ -43,26 +43,23 @@ ] ); -{ - local $TODO = "this literal quote is not actually one"; - test_statement( - "use q{OtherModule.pm};", - [ - 'PPI::Statement::Include' => 'use q{OtherModule.pm};', - 'PPI::Token::Word' => 'use', - 'PPI::Token::Word' => 'q', - 'PPI::Structure::Constructor' => '{OtherModule.pm}', - 'PPI::Token::Structure' => '{', - 'PPI::Statement' => 'OtherModule.pm', - 'PPI::Token::Word' => 'OtherModule', - 'PPI::Token::Operator' => '.', - 'PPI::Token::Word' => 'pm', - 'PPI::Token::Structure' => '}', - 'PPI::Token::Structure' => ';', - ], - "invalid syntax is identified correctly", - ); -} +test_statement( + "use q{OtherModule.pm};", + [ + 'PPI::Statement::Include' => 'use q{OtherModule.pm};', + 'PPI::Token::Word' => 'use', + 'PPI::Token::Word' => 'q', + 'PPI::Structure::Constructor' => '{OtherModule.pm}', + 'PPI::Token::Structure' => '{', + 'PPI::Statement' => 'OtherModule.pm', + 'PPI::Token::Word' => 'OtherModule', + 'PPI::Token::Operator' => '.', + 'PPI::Token::Word' => 'pm', + 'PPI::Token::Structure' => '}', + 'PPI::Token::Structure' => ';', + ], + "invalid syntax is identified correctly", +); sub one_line_explain { my ( $data ) = @_;