June 2017 - openSUSE Commits - openSUSE Mailing Lists

commit perl-Module-Reader for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-Module-Reader for openSUSE:Factory checked in at 2017-06-26 15:56:28 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Module-Reader (Old) and /work/SRC/openSUSE:Factory/.perl-Module-Reader.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Module-Reader" Mon Jun 26 15:56:28 2017 rev:5 rq:506084 version:0.003003 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Module-Reader/perl-Module-Reader.changes 2017-01-10 10:41:56.288409591 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Module-Reader.new/perl-Module-Reader.changes 2017-06-26 15:56:31.055666476 +0200 @@ -1,0 +2,12 @@ +Thu Jun 22 05:53:38 UTC 2017 - coolo(a)suse.com + +- updated to 0.003003 + see /usr/share/doc/packages/perl-Module-Reader/Changes + + 0.003003 - 2017-06-21 + - fix EACCES handling to match the current perl + - fix raw file handle access for unopened files + - call @INC hooks for ./, ../, and / paths if they weren't found directly + - add handling for a string reference prefix return from a hook + +------------------------------------------------------------------- Old: ---- Module-Reader-0.003002.tar.gz New: ---- Module-Reader-0.003003.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Module-Reader.spec ++++++ --- /var/tmp/diff_new_pack.ly2fQ6/_old 2017-06-26 15:56:31.747568907 +0200 +++ /var/tmp/diff_new_pack.ly2fQ6/_new 2017-06-26 15:56:31.751568343 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Module-Reader # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Module-Reader -Version: 0.003002 +Version: 0.003003 Release: 0 %define cpan_name Module-Reader Summary: Find and read perl modules like perl does License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Module-Reader/ -Source0: http://www.cpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar… Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Module-Reader-0.003002.tar.gz -> Module-Reader-0.003003.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/Changes new/Module-Reader-0.003003/Changes --- old/Module-Reader-0.003002/Changes 2016-12-14 09:13:32.000000000 +0100 +++ new/Module-Reader-0.003003/Changes 2017-06-21 18:21:27.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for Module-Reader +0.003003 - 2017-06-21 + - fix EACCES handling to match the current perl + - fix raw file handle access for unopened files + - call @INC hooks for ./, ../, and / paths if they weren't found directly + - add handling for a string reference prefix return from a hook + 0.003002 - 2016-12-14 - releasing as stable diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/MANIFEST new/Module-Reader-0.003003/MANIFEST --- old/Module-Reader-0.003002/MANIFEST 2016-12-14 09:13:41.000000000 +0100 +++ new/Module-Reader-0.003003/MANIFEST 2017-06-21 18:21:35.000000000 +0200 @@ -4,9 +4,10 @@ Makefile.PL MANIFEST This list of files t/file-types.t -t/lib/TestLib.pm +t/lib/InlineModule.pm t/main.t t/memory.t +t/test-data/lib/MyTestModule.pm META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) README README file (added by Distar) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/META.json new/Module-Reader-0.003003/META.json --- old/Module-Reader-0.003002/META.json 2016-12-14 09:13:41.000000000 +0100 +++ new/Module-Reader-0.003003/META.json 2017-06-21 18:21:35.000000000 +0200 @@ -10,7 +10,7 @@ ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "Module-Reader", "no_index" : { @@ -53,6 +53,6 @@ "web" : "https://github.com/haarg/Module-Reader" } }, - "version" : "0.003002", - "x_serialization_backend" : "JSON::PP version 2.27300" + "version" : "0.003003", + "x_serialization_backend" : "JSON::PP version 2.94" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/META.yml new/Module-Reader-0.003003/META.yml --- old/Module-Reader-0.003002/META.yml 2016-12-14 09:13:41.000000000 +0100 +++ new/Module-Reader-0.003003/META.yml 2017-06-21 18:21:35.000000000 +0200 @@ -24,5 +24,5 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Reader license: http://dev.perl.org/licenses/ repository: git://github.com/haarg/Module-Reader -version: '0.003002' +version: '0.003003' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/README new/Module-Reader-0.003003/README --- old/Module-Reader-0.003002/README 2016-12-14 09:13:41.000000000 +0100 +++ new/Module-Reader-0.003003/README 2017-06-21 18:21:35.000000000 +0200 @@ -33,7 +33,7 @@ module_content ( $module_name, @search_directories ) Returns the content of a given module. -CLASS ATTRIBUTES +ATTRIBUTES inc An array reference containing a list of directories or hooks to search for modules or files. This will be used in the same manner that require uses @INC. If not provided, @INC itself will be used. @@ -52,6 +52,18 @@ A boolean controlling if the files found will be opened immediately when found. Defaults to true. + abort_on_eacces + A boolean controlling if an error should be thrown or if the path + should be skipped when encountering "EACCES" (access denied) errors. + Defaults to true on perl 5.18 and above, matching the behavior of + require. + + check_hooks_for_nonsearchable + For non-searchable paths (absolute paths and those starting with + "./" or "../") attempt to check the hook items (and not the + directories) in @INC if the file cannot be found directly. This + matches the behavior of perl. Defaults to true. + METHODS module Returns a file object for the given module name. If the module can't be @@ -79,7 +91,7 @@ FILE METHODS filename - The filename that was seached for. + The filename that was searched for. module If a module was searched for, or a file of the matching form @@ -172,7 +184,7 @@ information for the files that it finds. Module::Locate - Innacurately searches @INC for matching files. Attempts to handle + Inaccurately searches @INC for matching files. Attempts to handle hooks, but handles most cases wrong. Module::Mapper diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/lib/Module/Reader.pm new/Module-Reader-0.003003/lib/Module/Reader.pm --- old/Module-Reader-0.003002/lib/Module/Reader.pm 2016-12-14 09:12:53.000000000 +0100 +++ new/Module-Reader-0.003003/lib/Module/Reader.pm 2017-06-21 18:21:25.000000000 +0200 @@ -3,30 +3,34 @@ use strict; use warnings; -our $VERSION = '0.003002'; +our $VERSION = '0.003003'; $VERSION = eval $VERSION; use Exporter (); BEGIN { *import = \&Exporter::import } our @EXPORT_OK = qw(module_content module_handle); our %EXPORT_TAGS = (all => [@EXPORT_OK]); -use File::Spec; +use File::Spec (); use Scalar::Util qw(reftype refaddr openhandle); -use Carp; +use Carp qw(croak); use Config (); use Errno qw(EACCES); -use constant _PMC_ENABLED => !( - exists &Config::non_bincompat_options ? grep { $_ eq 'PERL_DISABLE_PMC' } Config::non_bincompat_options() - : $Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DISABLE_PMC\b/ +use constant _OPEN_LAYERS => "$]" >= 5.008_000 ? ':' : ''; +use constant _ABORT_ON_EACCES => "$]" >= 5.017_001; +use constant _ALLOW_PREFIX => "$]" >= 5.008009; +use constant _VMS => $^O eq 'VMS' && !!require VMS::Filespec; +use constant _WIN32 => $^O eq 'MSWin32'; +use constant _PMC_ENABLED => !( + exists &Config::non_bincompat_options + ? grep { $_ eq 'PERL_DISABLE_PMC' } Config::non_bincompat_options() + : $Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DISABLE_PMC\b/ ); -use constant _VMS => $^O eq 'VMS' && !!require VMS::Filespec; -use constant _WIN32 => $^O eq 'MSWin32'; use constant _FAKE_FILE_FORMAT => do { - (my $uvx = $Config::Config{uvxformat}||'') =~ tr/"\0//d; + my $uvx = $Config::Config{uvxformat} || ''; + $uvx =~ tr/"\0//d; $uvx ||= 'lx'; "/loader/0x%$uvx/%s" }; -use constant _OPEN_LAYERS => "$]" >= 5.008 ? ':' : ''; sub _mod_to_file { my $module = shift; @@ -70,6 +74,10 @@ if !exists $options{pmc}; $options{open} = 1 if !exists $options{open}; + $options{abort_on_eacces} = _ABORT_ON_EACCES + if !exists $options{abort_on_eacces}; + $options{check_hooks_for_nonsearchable} = 1 + if !exists $options{check_hooks_for_nonsearchable}; bless \%options, $class; } @@ -104,13 +112,6 @@ sub _find { my ($self, $file, $all) = @_; - if (!_searchable($file)) { - my $open = $self->_open_file($file); - return $open - if $open; - croak "Can't locate $file"; - } - my @found; eval { if (my $found = $self->{found}) { @@ -128,9 +129,30 @@ die $@ if $@; } + + my $searchable = _searchable($file); + if (!$searchable) { + my $open = $self->_open_file($file); + if ($all) { + push @found, $open; + } + elsif ($open) { + return $open; + } + else { + croak "Can't locate $file"; + } + } + my $search = $self->{inc}; for my $inc (@$search) { my $open; + if (!$searchable) { + last + if !$self->{check_hooks_for_nonsearchable}; + next + if !length ref $inc; + } eval { if (!length ref $inc) { my $full = _VMS ? VMS::Filespec::unixpath($inc) : $inc; @@ -165,21 +187,23 @@ $full, ) { my $pmc = $full ne $try; - next - if -e $try ? (-d _ || -b _) : $! != EACCES; - - if (!$self->{open} ? -e _ : open my $fh, '<'._OPEN_LAYERS, $try) { - return Module::Reader::File->new( - filename => $file, - ($fh ? (raw_filehandle => $fh) : ()), - found_file => $full, - disk_file => $try, - is_pmc => $pmc, - (defined $inc ? (inc_entry => $inc) : ()), - ); + if (-e $try) { + next + if -d _ || -b _; + if (open my $fh, '<'._OPEN_LAYERS, $try) { + return Module::Reader::File->new( + filename => $file, + ($self->{open} ? (raw_filehandle => $fh) : ()), + found_file => $full, + disk_file => $try, + is_pmc => $pmc, + (defined $inc ? (inc_entry => $inc) : ()), + ); + } } + croak "Can't locate $file: $full: $!" - unless $pmc; + if $self->{abort_on_eacces} && $! == EACCES && !$pmc; } return; } @@ -205,10 +229,15 @@ my $fake_file = sprintf _FAKE_FILE_FORMAT, refaddr($inc), $file; my $fh; + my $prefix; my $cb; my $cb_options; - if (reftype $cb[0] eq 'GLOB' && openhandle $cb[0]) { + if (_ALLOW_PREFIX && reftype $cb[0] eq 'SCALAR') { + $prefix = shift @cb; + } + + if ((reftype $cb[0]||'') eq 'GLOB' && openhandle $cb[0]) { $fh = shift @cb; } @@ -217,13 +246,14 @@ # only one or zero callback options will be passed $cb_options = @cb > 1 ? [ $cb[1] ] : undef; } - elsif (!$fh) { + elsif (!defined $fh && !defined $prefix) { return; } return Module::Reader::File->new( filename => $file, found_file => $fake_file, inc_entry => $inc, + (defined $prefix ? (prefix => $prefix) : ()), (defined $fh ? (raw_filehandle => $fh) : ()), (defined $cb ? (read_callback => $cb) : ()), (defined $cb_options ? (read_callback_options => $cb_options) : ()), @@ -232,12 +262,12 @@ sub inc { $_[0]->{inc} } sub found { $_[0]->{found} } -sub pmc { $_[0]->{pmc} } +sub pmc { $_[0]->{pmc} } sub open { $_[0]->{open} } { package Module::Reader::File; - use constant _OPEN_STRING => "$]" >= 5.008 || (require IO::String, 0); + use constant _OPEN_STRING => "$]" >= 5.008 || !require IO::String; use Carp 'croak'; sub new { @@ -264,6 +294,7 @@ $_[0]->{raw_filehandle} ||= !$_[0]->{disk_file} ? undef : do { open my $fh, '<'.Module::Reader::_OPEN_LAYERS, $_[0]->{disk_file} or croak "Can't locate $_[0]->{disk_file}"; + $fh; }; } @@ -273,20 +304,22 @@ if exists $self->{content}; my $fh = $self->raw_filehandle; my $cb = $self->read_callback; + my $content = defined $self->{prefix} ? ${$self->{prefix}} : ''; if ($fh && !$cb) { local $/; - return scalar <$fh>; + $content .= <$fh>; } - my @params = @{$self->read_callback_options||[]}; - my $content = ''; - while (1) { - local $_ = $fh ? <$fh> : ''; - $_ = '' - if !defined; - # perlfunc/require says that the first parameter will be a reference the - # sub itself. this is wrong. 0 will be passed. - last if !$cb->(0, @params); - $content .= $_; + if ($cb) { + my @params = @{$self->read_callback_options||[]}; + while (1) { + local $_ = $fh ? <$fh> : ''; + $_ = '' + if !defined; + # perlfunc/require says that the first parameter will be a reference the + # sub itself. this is wrong. 0 will be passed. + last if !$cb->(0, @params); + $content .= $_; + } } return $self->{content} = $content; } @@ -356,7 +389,7 @@ Returns the content of a given module. -=head1 CLASS ATTRIBUTES +=head1 ATTRIBUTES =over 4 @@ -384,6 +417,19 @@ A boolean controlling if the files found will be opened immediately when found. Defaults to true. +=item abort_on_eacces + +A boolean controlling if an error should be thrown or if the path should be +skipped when encountering C<EACCES> (access denied) errors. Defaults to true +on perl 5.18 and above, matching the behavior of L<require|perlfunc/require>. + +=item check_hooks_for_nonsearchable + +For non-searchable paths (absolute paths and those starting with C<./> or +C<../>) attempt to check the hook items (and not the directories) in C<@INC> if +the file cannot be found directly. This matches the behavior of perl. Defaults +to true. + =back =head1 METHODS @@ -421,7 +467,7 @@ =head3 filename -The filename that was seached for. +The filename that was searched for. =head3 module @@ -532,7 +578,7 @@ =item L<Module::Locate> -Innacurately searches C<@INC> for matching files. Attempts to handle hooks, but +Inaccurately searches C<@INC> for matching files. Attempts to handle hooks, but handles most cases wrong. =item L<Module::Mapper> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/maint/Makefile.PL.include new/Module-Reader-0.003003/maint/Makefile.PL.include --- old/Module-Reader-0.003002/maint/Makefile.PL.include 2013-11-24 12:22:17.000000000 +0100 +++ new/Module-Reader-0.003003/maint/Makefile.PL.include 2017-05-06 14:05:54.000000000 +0200 @@ -5,3 +5,5 @@ use ExtUtils::MakeMaker 6.58; author 'haarg - Graham Knop (cpan:HAARG) <haarg(a)haarg.org>'; + +manifest_include 't/test-data/lib' => '.pm'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/file-types.t new/Module-Reader-0.003003/t/file-types.t --- old/Module-Reader-0.003002/t/file-types.t 2016-11-30 13:56:06.000000000 +0100 +++ new/Module-Reader-0.003003/t/file-types.t 2017-04-25 04:13:56.000000000 +0200 @@ -76,7 +76,7 @@ for my $type_2 (sort keys %types) { my $inc_2 = "$dir/$type_2"; - my $reader = Module::Reader->new(inc => [$inc_1, $inc_2, $fallback], pmc => 0); + my $reader = Module::Reader->new(inc => [$inc_1, $inc_2, $fallback], pmc => 0, abort_on_eacces => 1); my $found = eval { $reader->module('TestModule') }; my ($want) @@ -112,15 +112,21 @@ : 'error'; for my $read_opts ( - ['normal', {inc => [$inc, $fallback], pmc => 1}, 'TestModule.pm'], + ['normal', { + inc => [$inc, $fallback], + pmc => 1, + abort_on_eacces => 1, + }, 'TestModule.pm'], ['found', { found => { 'TestModule.pm' => "$inc/TestModule.pm" }, inc => [$fallback], pmc => 1, + abort_on_eacces => 1, }, 'TestModule.pm'], ['relative', { inc => [$fallback], pmc => 1, + abort_on_eacces => 1, }, './TestModule.pm', $inc], ) { my ($name, $opts, $file, $chdir) = @$read_opts; @@ -128,6 +134,7 @@ if defined $chdir; my $reader = Module::Reader->new(%$opts); my $found = eval { $reader->file($file) }; + my $error = $@; my $want = $want eq 'none' && $file =~ /^\./ ? 'error' : $want; my $got @@ -136,7 +143,15 @@ : $found->is_pmc ? 'pmc' : 'pm'; - is $got, $want, "$name search of $type with $pmc_type pmc found $want"; + my $ok = is $got, $want, "$name search of $type with $pmc_type pmc found $want"; + if ($got eq 'error') { + if ($ok) { + note "Got error: ".$error; + } + else { + diag "Got error: ".$error; + } + } chdir $cwd; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/lib/InlineModule.pm new/Module-Reader-0.003003/t/lib/InlineModule.pm --- old/Module-Reader-0.003002/t/lib/InlineModule.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Reader-0.003003/t/lib/InlineModule.pm 2017-04-24 19:21:09.000000000 +0200 @@ -0,0 +1,53 @@ +package InlineModule; +use strict; +use warnings; + +BEGIN { + *_HAS_PERLIO = "$]" >= 5.008_000 ? sub(){1} : sub(){0}; +} + +sub import { + my ($class, %modules) = @_; + unshift @INC, inc_hook(%modules) + if %modules; +} + +sub inc_hook { + my (%modules) = @_; + my %files = map { + (my $file = "$_.pm") =~ s{::}{/}g; + $file => $modules{$_}; + } keys %modules; + + sub { + return + unless exists $files{$_[1]}; + my $module = $files{$_[1]}; + if (!defined $module) { + die "Can't locate $_[1] in \@INC (hidden) (\@INC contains: @INC).\n"; + } + inc_module($module); + } +} + +sub inc_module { + my $code = $_[0]; + if (_HAS_PERLIO) { + open my $fh, '<', \$code + or die "error loading module: $!"; + return $fh; + } + else { + my $pos = 0; + my $last = length $code; + return (sub { + return 0 if $pos == $last; + my $next = (1 + index $code, "\n", $pos) || $last; + $_ .= substr $code, $pos, $next - $pos; + $pos = $next; + return 1; + }); + } +} + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/lib/TestLib.pm new/Module-Reader-0.003003/t/lib/TestLib.pm --- old/Module-Reader-0.003002/t/lib/TestLib.pm 2016-11-29 09:41:47.000000000 +0100 +++ new/Module-Reader-0.003003/t/lib/TestLib.pm 1970-01-01 01:00:00.000000000 +0100 @@ -1,5 +0,0 @@ -package TestLib; - -our $FILENAME = __FILE__; - -1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/main.t new/Module-Reader-0.003003/t/main.t --- old/Module-Reader-0.003002/t/main.t 2016-11-30 14:18:09.000000000 +0100 +++ new/Module-Reader-0.003003/t/main.t 2017-05-06 14:02:50.000000000 +0200 @@ -3,14 +3,14 @@ use Test::More 0.88; use Module::Reader qw(:all); -use lib 't/lib'; +use lib 't/test-data/lib'; my $mod_content = do { - open my $fh, '<'.Module::Reader::_OPEN_LAYERS, 't/lib/TestLib.pm'; + open my $fh, '<'.Module::Reader::_OPEN_LAYERS, 't/test-data/lib/MyTestModule.pm'; local $/; <$fh>; }; -is module_content('TestLib'), $mod_content, 'correctly load module from disk'; +is module_content('MyTestModule'), $mod_content, 'correctly load module from disk'; done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/memory.t new/Module-Reader-0.003003/t/memory.t --- old/Module-Reader-0.003002/t/memory.t 2016-11-30 14:39:00.000000000 +0100 +++ new/Module-Reader-0.003003/t/memory.t 2017-04-24 19:25:20.000000000 +0200 @@ -4,59 +4,42 @@ use Test::More 0.88; use Module::Reader qw(:all); +use lib 't/lib'; +use InlineModule; + BEGIN { *_HAS_PERLIO = "$]" >= 5.008_000 ? sub(){1} : sub(){0}; } my $mod_content = do { - open my $fh, '<', 't/lib/TestLib.pm'; + open my $fh, (_HAS_PERLIO ? '<:' : '<'), 't/test-data/lib/MyTestModule.pm'; local $/; <$fh>; }; -sub inc_module { - my $code = $_[0]; - if (_HAS_PERLIO) { - open my $fh, '<', \$code - or die "error loading module: $!"; - return $fh; - } - else { - my $pos = 0; - my $last = length $code; - return (sub { - return 0 if $pos == $last; - my $next = (1 + index $code, "\n", $pos) || $last; - $_ .= substr $code, $pos, $next - $pos; - $pos = $next; - return 1; - }); - } -} - { local @INC = ( - sub { return inc_module($mod_content) if $_[1] eq 'TestLib.pm' }, + InlineModule::inc_hook('MyTestModule' => $mod_content), @INC, ); - is module_content('TestLib'), $mod_content, + is module_content('MyTestModule'), $mod_content, 'correctly load module from sub @INC hook'; - require TestLib; + require MyTestModule; SKIP: { skip 'found option doesn\'t work with @INC hooks in perl < 5.8', 2 if "$]" < 5.008; local @INC = @INC; my $content = '1;'; - unshift @INC, sub { return unless $_[1] eq 'TestLib.pm'; inc_module($content) }; - is module_content('TestLib'), '1;', + unshift @INC, InlineModule::inc_hook( MyTestModule => $content ); + is module_content('MyTestModule'), '1;', 'loads overridden module from sub @INC hook'; - is module_content('TestLib', { found => \%INC } ), $mod_content, + is module_content('MyTestModule', { found => \%INC } ), $mod_content, 'found => \%INC loads mod as it was required'; } { local $TODO = "unable to accurately calculate fake filename on perl 5.6" if "$]" < 5.008; - is +Module::Reader->new->module('TestLib')->found_file, $TestLib::FILENAME, + is +Module::Reader->new->module('MyTestModule')->found_file, $MyTestModule::FILENAME, 'calculated file matches loaded filename'; } } @@ -67,14 +50,14 @@ @ChildHook::ISA = qw(ParentHook); { - my $base_hook = sub { return unless $_[1] eq 'TestLib.pm'; inc_module($mod_content) }; + my $base_hook = InlineModule::inc_hook( MyTestModule => $mod_content ); for my $fake_hook ( ['hook returning an array ref' => sub { return [] }], ['hook returning a hash ref' => sub { return {} }], ) { my $name = $fake_hook->[0]; my @inc = ($fake_hook->[1], $base_hook); - is module_content('TestLib', { inc => \@inc }), $mod_content, + is module_content('MyTestModule', { inc => \@inc }), $mod_content, "$name is ignored"; } } @@ -98,7 +81,7 @@ ['array ref with hash ref' => [{}]], ['array ref with code' => [sub { return }]], ) { - my $class = 'TestLib'.++$uniq; + my $class = 'MyTestModule'.++$uniq; my $name = $hook->[0]; my @inc = ($hook->[1], sub { return unless $_[1] eq "$class.pm"; inc_module($mod_content) }); eval { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Reader-0.003002/t/test-data/lib/MyTestModule.pm new/Module-Reader-0.003003/t/test-data/lib/MyTestModule.pm --- old/Module-Reader-0.003002/t/test-data/lib/MyTestModule.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Reader-0.003003/t/test-data/lib/MyTestModule.pm 2017-04-24 19:15:43.000000000 +0200 @@ -0,0 +1,5 @@ +package MyTestModule; + +our $FILENAME = __FILE__; + +1;

1 0

commit perl-PPI for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

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 - coolo(a)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 - coolo(a)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 ) = @_;

1 0

commit perl-Class-Unload for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-Class-Unload for openSUSE:Factory checked in at 2017-06-26 15:56:21 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Class-Unload (Old) and /work/SRC/openSUSE:Factory/.perl-Class-Unload.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Class-Unload" Mon Jun 26 15:56:21 2017 rev:8 rq:506082 version:0.11 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Class-Unload/perl-Class-Unload.changes 2015-07-08 06:59:53.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Class-Unload.new/perl-Class-Unload.changes 2017-06-26 15:56:24.380607763 +0200 @@ -1,0 +2,14 @@ +Fri Jun 23 05:13:05 UTC 2017 - coolo(a)suse.com + +- updated to 0.11 + see /usr/share/doc/packages/perl-Class-Unload/Changes + + 0.11 2017-06-22 17:41:44+01:00 Europe/London + + - No changes since 0.10-TRIAL + + 0.10 2017-06-08 13:12:04+01:00 Europe/London (TRIAL RELEASE) + + - Remove Moose metaclasses (RT#122048) + +------------------------------------------------------------------- Old: ---- Class-Unload-0.09.tar.gz New: ---- Class-Unload-0.11.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Class-Unload.spec ++++++ --- /var/tmp/diff_new_pack.ESRj2p/_old 2017-06-26 15:56:25.228488199 +0200 +++ /var/tmp/diff_new_pack.ESRj2p/_new 2017-06-26 15:56:25.236487071 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Class-Unload # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,20 +17,22 @@ Name: perl-Class-Unload -Version: 0.09 +Version: 0.11 Release: 0 %define cpan_name Class-Unload Summary: Unload a class License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Class-Unload/ -Source0: http://www.cpan.org/authors/id/I/IL/ILMARI/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/I/IL/ILMARI/%{cpan_name}-%{version}.ta… Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Class::Inspector) +BuildRequires: perl(Test::More) >= 0.88 +BuildRequires: perl(Test::Requires) Requires: perl(Class::Inspector) %{perl_requires} @@ -54,6 +56,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README +%doc Changes README +%license LICENSE %changelog ++++++ Class-Unload-0.09.tar.gz -> Class-Unload-0.11.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/Changes new/Class-Unload-0.11/Changes --- old/Class-Unload-0.09/Changes 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/Changes 2017-06-22 18:41:46.000000000 +0200 @@ -1,5 +1,13 @@ Revision history for Class-Unload +0.11 2017-06-22 17:41:44+01:00 Europe/London + + - No changes since 0.10-TRIAL + +0.10 2017-06-08 13:12:04+01:00 Europe/London (TRIAL RELEASE) + + - Remove Moose metaclasses (RT#122048) + 0.09 2015-07-03 11:11:32+01:00 Europe/London - Add META.json and resources metadata (RT#105634) @@ -27,7 +35,7 @@ 0.02 Tue Apr 15, 2008 - Fix deleting of parent symbol table entry for - multi-level class names. + multi-level class names. - Clear @ISA before clearing the symbol table to make perl 5.10 invalidate its inheritance cache. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/LICENSE new/Class-Unload-0.11/LICENSE --- old/Class-Unload-0.09/LICENSE 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/LICENSE 2017-06-22 18:41:46.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2015 by Dagfinn Ilmari Mannsåker. +This software is copyright (c) 2017 by Dagfinn Ilmari Mannsåker. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2015 by Dagfinn Ilmari Mannsåker. +This software is Copyright (c) 2017 by Dagfinn Ilmari Mannsåker. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2015 by Dagfinn Ilmari Mannsåker. +This software is Copyright (c) 2017 by Dagfinn Ilmari Mannsåker. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/MANIFEST new/Class-Unload-0.11/MANIFEST --- old/Class-Unload-0.09/MANIFEST 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/MANIFEST 2017-06-22 18:41:46.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.037. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.009. Changes LICENSE MANIFEST @@ -11,12 +11,14 @@ t/00-load.t t/01-unload.t t/02-inheritance.t +t/03-moose.t t/author-eol.t t/author-no-tabs.t +t/author-pod-coverage.t +t/author-pod-syntax.t +t/lib/MooseClass.pm t/lib/MyClass.pm t/lib/MyClass/Child.pm t/lib/MyClass/Parent.pm t/lib/MyClass/Sub.pm t/lib/MyClass/Sub/Sub.pm -t/release-pod-coverage.t -t/release-pod-syntax.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/META.json new/Class-Unload-0.11/META.json --- old/Class-Unload-0.09/META.json 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/META.json 2017-06-22 18:41:46.000000000 +0200 @@ -1,10 +1,10 @@ { "abstract" : "Unload a class", "author" : [ - "Dagfinn Ilmari Mannsåker <ilmari(a)ilmari.org>;" + "Dagfinn Ilmari Manns\u00e5ker <ilmari(a)ilmari.org>;" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150001", + "generated_by" : "Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -21,6 +21,7 @@ }, "develop" : { "requires" : { + "Moose" : "0", "Pod::Coverage::TrustPod" : "0", "Test::EOL" : "0", "Test::More" : "0.88", @@ -38,7 +39,8 @@ }, "test" : { "requires" : { - "Test::More" : "0", + "Test::More" : "0.88", + "Test::Requires" : "0", "base" : "0", "lib" : "0" } @@ -57,6 +59,7 @@ "web" : "https://github.com/ilmari/Class-Unload" } }, - "version" : "0.09" + "version" : "0.11", + "x_serialization_backend" : "Cpanel::JSON::XS version 3.0233" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/META.yml new/Class-Unload-0.11/META.yml --- old/Class-Unload-0.09/META.yml 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/META.yml 2017-06-22 18:41:46.000000000 +0200 @@ -3,13 +3,14 @@ author: - 'Dagfinn Ilmari Mannsåker <ilmari(a)ilmari.org>;' build_requires: - Test::More: '0' + Test::More: '0.88' + Test::Requires: '0' base: '0' lib: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150001' +generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,4 +24,5 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Class-Unload homepage: https://github.com/ilmari/Class-Unload repository: https://github.com/ilmari/Class-Unload.git -version: '0.09' +version: '0.11' +x_serialization_backend: 'YAML::Tiny version 1.70' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/Makefile.PL new/Class-Unload-0.11/Makefile.PL --- old/Class-Unload-0.09/Makefile.PL 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/Makefile.PL 2017-06-22 18:41:46.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.037. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.009. use strict; use warnings; @@ -13,7 +13,6 @@ "ExtUtils::MakeMaker" => 0 }, "DISTNAME" => "Class-Unload", - "EXE_FILES" => [], "LICENSE" => "perl", "NAME" => "Class::Unload", "PREREQ_PM" => { @@ -22,11 +21,12 @@ "warnings" => 0 }, "TEST_REQUIRES" => { - "Test::More" => 0, + "Test::More" => "0.88", + "Test::Requires" => 0, "base" => 0, "lib" => 0 }, - "VERSION" => "0.09", + "VERSION" => "0.11", "test" => { "TESTS" => "t/*.t" } @@ -35,8 +35,8 @@ my %FallbackPrereqs = ( "Class::Inspector" => 0, - "ExtUtils::MakeMaker" => 0, - "Test::More" => 0, + "Test::More" => "0.88", + "Test::Requires" => 0, "base" => 0, "lib" => 0, "strict" => 0, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/README new/Class-Unload-0.11/README --- old/Class-Unload-0.09/README 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/README 2017-06-22 18:41:46.000000000 +0200 @@ -1,15 +1,15 @@ This archive contains the distribution Class-Unload, -version 0.09: +version 0.11: Unload a class -This software is copyright (c) 2015 by Dagfinn Ilmari Mannsåker. +This software is copyright (c) 2017 by Dagfinn Ilmari Mannsåker. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. -This README file was generated by Dist::Zilla::Plugin::Readme v5.037. +This README file was generated by Dist::Zilla::Plugin::Readme v6.009. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/dist.ini new/Class-Unload-0.11/dist.ini --- old/Class-Unload-0.09/dist.ini 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/dist.ini 2017-06-22 18:41:46.000000000 +0200 @@ -1,17 +1,32 @@ -name = Class-Unload -author = Dagfinn Ilmari Mannsåker <ilmari(a)ilmari.org>; -license = Perl_5 +name = Class-Unload +author = Dagfinn Ilmari Mannsåker <ilmari(a)ilmari.org>; +license = Perl_5 copyright_holder = Dagfinn Ilmari Mannsåker [@Basic] [MetaJSON] [AutoPrereqs] +skip = ^Moose$ + +[Prereqs / DevelopRequires] +Moose = 0 + +[Prereqs / TestRequires] +Test::More = 0.88 [PodSyntaxTests] [PodCoverageTests] + +[FileFinder::Filter / AlmostAllFiles] +finder = :AllFiles +skip = LICENSE ; Artistic_1_0 has trailing whitespace + [Test::EOL] +finder = AlmostAllFiles + [Test::NoTabs] +finder = AlmostAllFiles [BumpVersionFromGit] [PkgVersion] @@ -25,3 +40,4 @@ [Git::Check] [Git::Commit] [Git::Tag] +[Git::Push] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/lib/Class/Unload.pm new/Class-Unload-0.11/lib/Class/Unload.pm --- old/Class-Unload-0.09/lib/Class/Unload.pm 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/lib/Class/Unload.pm 2017-06-22 18:41:46.000000000 +0200 @@ -1,6 +1,6 @@ package Class::Unload; # ABSTRACT: Unload a class -$Class::Unload::VERSION = '0.09'; +$Class::Unload::VERSION = '0.11'; use warnings; use strict; no strict 'refs'; # we're fiddling with the symbol table @@ -26,6 +26,10 @@ my $inc_file = join( '/', split /(?:'|::)/, $class ) . '.pm'; delete $INC{ $inc_file }; + if (Class::Inspector->loaded('Class::MOP')) { + Class::MOP::remove_metaclass_by_name($class); + } + return 1; } @@ -44,7 +48,7 @@ =head1 VERSION -version 0.09 +version 0.11 =head1 SYNOPSIS @@ -63,7 +67,7 @@ =head2 unload $class Unloads the given class by clearing out its symbol table and removing it -from %INC. +from %INC. If it's a L<Moose> class, the metaclass is also removed. =head1 SEE ALSO @@ -80,7 +84,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Dagfinn Ilmari Mannsåker. +This software is copyright (c) 2017 by Dagfinn Ilmari Mannsåker. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/00-load.t new/Class-Unload-0.11/t/00-load.t --- old/Class-Unload-0.09/t/00-load.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/00-load.t 2017-06-22 18:41:46.000000000 +0200 @@ -1,9 +1,13 @@ #!perl -T -use Test::More tests => 1; +use strict; +use warnings; +use Test::More; BEGIN { use_ok( 'Class::Unload' ); } diag( "Testing Class::Unload $Class::Unload::VERSION, Perl $], $^X" ); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/01-unload.t new/Class-Unload-0.11/t/01-unload.t --- old/Class-Unload-0.09/t/01-unload.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/01-unload.t 2017-06-22 18:41:46.000000000 +0200 @@ -1,10 +1,13 @@ #!perl -T +use strict; +use warnings; +use Test::More; + use Class::Inspector; use Class::Unload; -use lib 't/lib'; -use Test::More tests => 15; +use lib 't/lib'; for my $class ( qw/ MyClass MyClass::Sub MyClass::Sub::Sub / ) { eval "require $class" or diag $@; @@ -12,11 +15,11 @@ } # Class::C3 creates this sort of cruft on 5.8 -${'MyClass::'}{'::ISA::CACHE::'} = 42; +$MyClass::{'::ISA::CACHE::'} = 42; ok( Class::Unload->unload( 'MyClass' ), 'Unloading MyClass' ); ok( ! Class::Inspector->loaded( 'MyClass' ), 'MyClass is not loaded' ); -ok( ! exists(${'MyClass::'}{'::ISA::CACHE::'}), 'Stash cruft deleted' ); +ok( ! exists($MyClass::{'::ISA::CACHE::'}), 'Stash cruft deleted' ); ok( Class::Inspector->loaded( 'MyClass::Sub' ), 'MyClass::Sub is still loaded' ); ok( Class::Unload->unload( 'MyClass::Sub' ), 'Unloading MyClass::Sub' ); @@ -33,3 +36,5 @@ eval { Class::Unload->unload( 'dummy' ) }; like( $@, qr /Can't locate object method "unload" via package "Class::Unload"/, "Can't call method on unloaded class" ); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/02-inheritance.t new/Class-Unload-0.11/t/02-inheritance.t --- old/Class-Unload-0.09/t/02-inheritance.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/02-inheritance.t 2017-06-22 18:41:46.000000000 +0200 @@ -1,11 +1,13 @@ #!perl -T +use strict; +use warnings; +use Test::More; + use Class::Unload; use lib 't/lib'; -use Test::More tests => 6; - -require MyClass::Child; +use MyClass::Child; can_ok( 'MyClass::Child', 'parent_method' ); can_ok( 'MyClass::Child', 'child_method' ); @@ -27,3 +29,4 @@ like( $@, qr/Can't locate object method "parent_method" via package "MyClass::Child"/, "method on unloaded parent class fails"); +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/03-moose.t new/Class-Unload-0.11/t/03-moose.t --- old/Class-Unload-0.09/t/03-moose.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Class-Unload-0.11/t/03-moose.t 2017-06-22 18:41:46.000000000 +0200 @@ -0,0 +1,24 @@ +#!perl -T + +use strict; +use warnings; +use Test::More; +use Test::Requires { + Moose => 0, +}; + +use Class::Inspector; +use Class::Unload; + +use lib 't/lib'; +use MooseClass; + +ok( Class::Inspector->loaded('MooseClass'), 'MooseClass loaded'); +ok( Class::MOP::does_metaclass_exist('MooseClass'), 'MooseClass metaclass exists'); + +Class::Unload->unload('MooseClass'); + +ok( ! Class::Inspector->loaded('MooseClass'), 'MooseClass unloaded'); +ok( ! Class::MOP::does_metaclass_exist('MooseClass'), 'MooseClass metaclass removed'); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/author-eol.t new/Class-Unload-0.11/t/author-eol.t --- old/Class-Unload-0.09/t/author-eol.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/author-eol.t 2017-06-22 18:41:46.000000000 +0200 @@ -1,33 +1,41 @@ BEGIN { unless ($ENV{AUTHOR_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for testing by the author'); + print qq{1..0 # SKIP these tests are for testing by the author\n}; + exit } } use strict; use warnings; -# this test was generated with Dist::Zilla::Plugin::Test::EOL 0.18 +# this test was generated with Dist::Zilla::Plugin::Test::EOL 0.19 use Test::More 0.88; use Test::EOL; my @files = ( + 'Changes', + 'META.json', + 'META.yml', + 'Makefile.PL', + 'README', + 'dist.ini', 'lib/Class/Unload.pm', 't/00-load.t', 't/01-unload.t', 't/02-inheritance.t', + 't/03-moose.t', 't/author-eol.t', 't/author-no-tabs.t', + 't/author-pod-coverage.t', + 't/author-pod-syntax.t', + 't/lib/MooseClass.pm', 't/lib/MyClass.pm', 't/lib/MyClass/Child.pm', 't/lib/MyClass/Parent.pm', 't/lib/MyClass/Sub.pm', - 't/lib/MyClass/Sub/Sub.pm', - 't/release-pod-coverage.t', - 't/release-pod-syntax.t' + 't/lib/MyClass/Sub/Sub.pm' ); eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/author-no-tabs.t new/Class-Unload-0.11/t/author-no-tabs.t --- old/Class-Unload-0.09/t/author-no-tabs.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/author-no-tabs.t 2017-06-22 18:41:46.000000000 +0200 @@ -1,8 +1,8 @@ BEGIN { unless ($ENV{AUTHOR_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for testing by the author'); + print qq{1..0 # SKIP these tests are for testing by the author\n}; + exit } } @@ -15,19 +15,27 @@ use Test::NoTabs; my @files = ( + 'Changes', + 'META.json', + 'META.yml', + 'Makefile.PL', + 'README', + 'dist.ini', 'lib/Class/Unload.pm', 't/00-load.t', 't/01-unload.t', 't/02-inheritance.t', + 't/03-moose.t', 't/author-eol.t', 't/author-no-tabs.t', + 't/author-pod-coverage.t', + 't/author-pod-syntax.t', + 't/lib/MooseClass.pm', 't/lib/MyClass.pm', 't/lib/MyClass/Child.pm', 't/lib/MyClass/Parent.pm', 't/lib/MyClass/Sub.pm', - 't/lib/MyClass/Sub/Sub.pm', - 't/release-pod-coverage.t', - 't/release-pod-syntax.t' + 't/lib/MyClass/Sub/Sub.pm' ); notabs_ok($_) foreach @files; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/author-pod-coverage.t new/Class-Unload-0.11/t/author-pod-coverage.t --- old/Class-Unload-0.09/t/author-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Class-Unload-0.11/t/author-pod-coverage.t 2017-06-22 18:41:46.000000000 +0200 @@ -0,0 +1,15 @@ +#!perl + +BEGIN { + unless ($ENV{AUTHOR_TESTING}) { + print qq{1..0 # SKIP these tests are for testing by the author\n}; + exit + } +} + +# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests. + +use Test::Pod::Coverage 1.08; +use Pod::Coverage::TrustPod; + +all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/author-pod-syntax.t new/Class-Unload-0.11/t/author-pod-syntax.t --- old/Class-Unload-0.09/t/author-pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Class-Unload-0.11/t/author-pod-syntax.t 2017-06-22 18:41:46.000000000 +0200 @@ -0,0 +1,15 @@ +#!perl + +BEGIN { + unless ($ENV{AUTHOR_TESTING}) { + print qq{1..0 # SKIP these tests are for testing by the author\n}; + exit + } +} + +# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. +use strict; use warnings; +use Test::More; +use Test::Pod 1.41; + +all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/lib/MooseClass.pm new/Class-Unload-0.11/t/lib/MooseClass.pm --- old/Class-Unload-0.09/t/lib/MooseClass.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Class-Unload-0.11/t/lib/MooseClass.pm 2017-06-22 18:41:46.000000000 +0200 @@ -0,0 +1,5 @@ +package MooseClass; + +use Moose; + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/release-pod-coverage.t new/Class-Unload-0.11/t/release-pod-coverage.t --- old/Class-Unload-0.09/t/release-pod-coverage.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/release-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,15 +0,0 @@ -#!perl - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - -# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests. - -use Test::Pod::Coverage 1.08; -use Pod::Coverage::TrustPod; - -all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Class-Unload-0.09/t/release-pod-syntax.t new/Class-Unload-0.11/t/release-pod-syntax.t --- old/Class-Unload-0.09/t/release-pod-syntax.t 2015-07-03 12:11:34.000000000 +0200 +++ new/Class-Unload-0.11/t/release-pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,14 +0,0 @@ -#!perl - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - -# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. -use Test::More; -use Test::Pod 1.41; - -all_pod_files_ok();

1 0

commit perl-Test-Simple for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-Test-Simple for openSUSE:Factory checked in at 2017-06-26 15:56:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Simple (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Simple.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Test-Simple" Mon Jun 26 15:56:18 2017 rev:5 rq:506081 version:1.302086 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Simple/perl-Test-Simple.changes 2017-05-16 14:38:08.050318422 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-Simple.new/perl-Test-Simple.changes 2017-06-26 15:56:20.845106324 +0200 @@ -1,0 +2,10 @@ +Fri Jun 23 06:24:18 UTC 2017 - coolo(a)suse.com + +- updated to 1.302086 + see /usr/share/doc/packages/perl-Test-Simple/Changes + + 1.302086 2017-06-20 10:43:13-07:00 America/Los_Angeles + + - Make it possible to turn off result logging in Test::Builder + +------------------------------------------------------------------- Old: ---- Test-Simple-1.302085.tar.gz New: ---- Test-Simple-1.302086.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Simple.spec ++++++ --- /var/tmp/diff_new_pack.f4tHTS/_old 2017-06-26 15:56:21.401027930 +0200 +++ /var/tmp/diff_new_pack.f4tHTS/_new 2017-06-26 15:56:21.401027930 +0200 @@ -17,7 +17,7 @@ Name: perl-Test-Simple -Version: 1.302085 +Version: 1.302086 Release: 0 %define cpan_name Test-Simple Summary: Basic utilities for writing tests ++++++ Test-Simple-1.302085.tar.gz -> Test-Simple-1.302086.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/Changes new/Test-Simple-1.302086/Changes --- old/Test-Simple-1.302085/Changes 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/Changes 2017-06-20 19:43:15.000000000 +0200 @@ -1,3 +1,7 @@ +1.302086 2017-06-20 10:43:13-07:00 America/Los_Angeles + + - Make it possible to turn off result logging in Test::Builder + 1.302085 2017-05-01 19:24:37-07:00 America/Los_Angeles - No Changes since last TRIAL diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/MANIFEST new/Test-Simple-1.302086/MANIFEST --- old/Test-Simple-1.302085/MANIFEST 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/MANIFEST 2017-06-20 19:43:15.000000000 +0200 @@ -149,6 +149,7 @@ t/Legacy/is_deeply_with_threads.t t/Legacy/missing.t t/Legacy/new_ok.t +t/Legacy/no_log_results.t t/Legacy/no_plan.t t/Legacy/no_tests.t t/Legacy/note.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/META.json new/Test-Simple-1.302086/META.json --- old/Test-Simple-1.302085/META.json 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/META.json 2017-06-20 19:43:15.000000000 +0200 @@ -47,7 +47,7 @@ "url" : "http://github.com/Test-More/test-more/" } }, - "version" : "1.302085", + "version" : "1.302086", "x_breaks" : { "Log::Dispatch::Config::TestLog" : "<= 0.02", "Net::BitTorrent" : "<= 0.052", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/META.yml new/Test-Simple-1.302086/META.yml --- old/Test-Simple-1.302085/META.yml 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/META.yml 2017-06-20 19:43:15.000000000 +0200 @@ -23,7 +23,7 @@ resources: bugtracker: http://github.com/Test-More/test-more/issues repository: http://github.com/Test-More/test-more/ -version: '1.302085' +version: '1.302086' x_breaks: Log::Dispatch::Config::TestLog: '<= 0.02' Net::BitTorrent: '<= 0.052' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/Makefile.PL new/Test-Simple-1.302086/Makefile.PL --- old/Test-Simple-1.302085/Makefile.PL 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/Makefile.PL 2017-06-20 19:43:15.000000000 +0200 @@ -24,7 +24,7 @@ "Storable" => 0, "utf8" => 0 }, - "VERSION" => "1.302085", + "VERSION" => "1.302086", "test" => { "TESTS" => "t/*.t t/Legacy/*.t t/Legacy/Bugs/*.t t/Legacy/Builder/*.t t/Legacy/Regression/*.t t/Legacy/Simple/*.t t/Legacy/Test2/*.t t/Legacy/Tester/*.t t/Legacy/subtest/*.t t/Legacy_And_Test2/*.t t/Test2/acceptance/*.t t/Test2/behavior/*.t t/Test2/legacy/*.t t/Test2/modules/*.t t/Test2/modules/API/*.t t/Test2/modules/Event/*.t t/Test2/modules/Formatter/*.t t/Test2/modules/Hub/*.t t/Test2/modules/Hub/Interceptor/*.t t/Test2/modules/IPC/*.t t/Test2/modules/IPC/Driver/*.t t/Test2/modules/Tools/*.t t/Test2/modules/Util/*.t t/Test2/regression/*.t t/regression/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder/Formatter.pm new/Test-Simple-1.302086/lib/Test/Builder/Formatter.pm --- old/Test-Simple-1.302085/lib/Test/Builder/Formatter.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder/Formatter.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder/Module.pm new/Test-Simple-1.302086/lib/Test/Builder/Module.pm --- old/Test-Simple-1.302085/lib/Test/Builder/Module.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder/Module.pm 2017-06-20 19:43:15.000000000 +0200 @@ -7,7 +7,7 @@ require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder/Tester/Color.pm new/Test-Simple-1.302086/lib/Test/Builder/Tester/Color.pm --- old/Test-Simple-1.302085/lib/Test/Builder/Tester/Color.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder/Tester/Color.pm 2017-06-20 19:43:15.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; require Test::Builder::Tester; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder/Tester.pm new/Test-Simple-1.302086/lib/Test/Builder/Tester.pm --- old/Test-Simple-1.302085/lib/Test/Builder/Tester.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder/Tester.pm 2017-06-20 19:43:15.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test::Builder; use Symbol; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder/TodoDiag.pm new/Test-Simple-1.302086/lib/Test/Builder/TodoDiag.pm --- old/Test-Simple-1.302085/lib/Test/Builder/TodoDiag.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder/TodoDiag.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Builder.pm new/Test-Simple-1.302086/lib/Test/Builder.pm --- old/Test-Simple-1.302085/lib/Test/Builder.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Builder.pm 2017-06-20 19:43:15.000000000 +0200 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { if( $] < 5.008 ) { @@ -203,7 +203,7 @@ $self->_add_ts_hooks; $ctx->release; - return bless { Original_Pid => $$, Stack => $self->{Stack}, Hub => $hub }, blessed($self); + return bless { Original_Pid => $$, Stack => $self->{Stack}, Hub => $hub, no_log_results => $self->{no_log_results} }, blessed($self); } sub finalize { @@ -373,6 +373,7 @@ # hash keys is just asking for pain. Also, it was documented. $Level = 1; + $self->{no_log_results} = $ENV{TEST_NO_LOG_RESULTS} ? 1 : 0; $self->{Original_Pid} = $$; my $ctx = $self->ctx; @@ -634,7 +635,7 @@ (name => defined($name) ? $name : ''), }; - $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result; + $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; my $orig_name = $name; @@ -1006,7 +1007,7 @@ name => $name, type => 'skip', reason => $why, - }; + } unless $self->{no_log_results}; $name =~ s|#|\\#|g; # # in a name can confuse Test::Harness. $name =~ s{\n}{\n# }sg; @@ -1031,7 +1032,7 @@ name => '', type => 'todo_skip', reason => $why, - }; + } unless $self->{no_log_results}; $why =~ s{\n}{\n# }sg; my $tctx = $ctx->snapshot; @@ -1353,23 +1354,25 @@ if( defined $num ) { $hub->set_count($num); - # If the test counter is being pushed forward fill in the details. - my $test_results = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; - if( $num > @$test_results ) { - my $start = @$test_results ? @$test_results : 0; - for( $start .. $num - 1 ) { - $test_results->[$_] = { - 'ok' => 1, - actual_ok => undef, - reason => 'incrementing test number', - type => 'unknown', - name => undef - }; + unless ($self->{no_log_results}) { + # If the test counter is being pushed forward fill in the details. + my $test_results = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; + if ($num > @$test_results) { + my $start = @$test_results ? @$test_results : 0; + for ($start .. $num - 1) { + $test_results->[$_] = { + 'ok' => 1, + actual_ok => undef, + reason => 'incrementing test number', + type => 'unknown', + name => undef + }; + } + } + # If backward, wipe history. Its their funeral. + elsif ($num < @$test_results) { + $#{$test_results} = $num - 1; } - } - # If backward, wipe history. Its their funeral. - elsif( $num < @$test_results ) { - $#{$test_results} = $num - 1; } } return release $ctx, $hub->count; @@ -1395,6 +1398,8 @@ sub summary { my($self) = shift; + return if $self->{no_log_results}; + my $ctx = $self->ctx; my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; $ctx->release; @@ -1404,6 +1409,9 @@ sub details { my $self = shift; + + return if $self->{no_log_results}; + my $ctx = $self->ctx; my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; $ctx->release; @@ -1710,6 +1718,8 @@ Test2::API::test2_ipc_enable_shm(); } +sub no_log_results { $_[0]->{no_log_results} = 1 } + 1; __END__ @@ -2253,6 +2263,16 @@ =over 4 +=item B<no_log_results> + +This will turn off result long-term storage. Calling this method will make +C<details> and C<summary> useless. You may want to use this if you are running +enough tests to fill up all available memory. + + Test::Builder->new->no_log_results(); + +There is no way to turn it back on. + =item B<current_test> my $curr_test = $Test->current_test; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/More.pm new/Test-Simple-1.302086/lib/Test/More.pm --- old/Test-Simple-1.302085/lib/Test/More.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/More.pm 2017-06-20 19:43:15.000000000 +0200 @@ -17,7 +17,7 @@ return warn @_, " at $file line $line\n"; } -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Simple.pm new/Test-Simple-1.302086/lib/Test/Simple.pm --- old/Test-Simple-1.302085/lib/Test/Simple.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Simple.pm 2017-06-20 19:43:15.000000000 +0200 @@ -4,7 +4,7 @@ use strict; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Tester/Capture.pm new/Test-Simple-1.302086/lib/Test/Tester/Capture.pm --- old/Test-Simple-1.302085/lib/Test/Tester/Capture.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Tester/Capture.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ package Test::Tester::Capture; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test::Builder; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Tester/CaptureRunner.pm new/Test-Simple-1.302086/lib/Test/Tester/CaptureRunner.pm --- old/Test-Simple-1.302085/lib/Test/Tester/CaptureRunner.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Tester/CaptureRunner.pm 2017-06-20 19:43:15.000000000 +0200 @@ -3,7 +3,7 @@ package Test::Tester::CaptureRunner; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test::Tester::Capture; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Tester/Delegate.pm new/Test-Simple-1.302086/lib/Test/Tester/Delegate.pm --- old/Test-Simple-1.302085/lib/Test/Tester/Delegate.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Tester/Delegate.pm 2017-06-20 19:43:15.000000000 +0200 @@ -3,7 +3,7 @@ package Test::Tester::Delegate; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Scalar::Util(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/Tester.pm new/Test-Simple-1.302086/lib/Test/Tester.pm --- old/Test-Simple-1.302085/lib/Test/Tester.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/Tester.pm 2017-06-20 19:43:15.000000000 +0200 @@ -18,7 +18,7 @@ use vars qw( @ISA @EXPORT ); -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); @ISA = qw( Exporter ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test/use/ok.pm new/Test-Simple-1.302086/lib/Test/use/ok.pm --- old/Test-Simple-1.302085/lib/Test/use/ok.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test/use/ok.pm 2017-06-20 19:43:15.000000000 +0200 @@ -1,7 +1,7 @@ package Test::use::ok; use 5.005; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; __END__ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/API/Breakage.pm new/Test-Simple-1.302086/lib/Test2/API/Breakage.pm --- old/Test-Simple-1.302085/lib/Test2/API/Breakage.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/API/Breakage.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Util qw/pkg_to_file/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/API/Context.pm new/Test-Simple-1.302086/lib/Test2/API/Context.pm --- old/Test-Simple-1.302085/lib/Test2/API/Context.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/API/Context.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Carp qw/confess croak longmess/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/API/Instance.pm new/Test-Simple-1.302086/lib/Test2/API/Instance.pm --- old/Test-Simple-1.302085/lib/Test2/API/Instance.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/API/Instance.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/API/Stack.pm new/Test-Simple-1.302086/lib/Test2/API/Stack.pm --- old/Test-Simple-1.302085/lib/Test2/API/Stack.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/API/Stack.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Hub(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/API.pm new/Test-Simple-1.302086/lib/Test2/API.pm --- old/Test-Simple-1.302085/lib/Test2/API.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/API.pm 2017-06-20 19:43:15.000000000 +0200 @@ -7,7 +7,7 @@ $ENV{TEST2_ACTIVE} = 1; } -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; my $INST; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Bail.pm new/Test-Simple-1.302086/lib/Test2/Event/Bail.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Bail.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Bail.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Diag.pm new/Test-Simple-1.302086/lib/Test2/Event/Diag.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Diag.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Diag.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Encoding.pm new/Test-Simple-1.302086/lib/Test2/Event/Encoding.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Encoding.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Encoding.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/encoding/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Exception.pm new/Test-Simple-1.302086/lib/Test2/Event/Exception.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Exception.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Exception.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Generic.pm new/Test-Simple-1.302086/lib/Test2/Event/Generic.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Generic.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Generic.pm 2017-06-20 19:43:15.000000000 +0200 @@ -5,7 +5,7 @@ use Carp qw/croak/; use Scalar::Util qw/reftype/; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Note.pm new/Test-Simple-1.302086/lib/Test2/Event/Note.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Note.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Note.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Ok.pm new/Test-Simple-1.302086/lib/Test2/Event/Ok.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Ok.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Ok.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Plan.pm new/Test-Simple-1.302086/lib/Test2/Event/Plan.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Plan.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Plan.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Skip.pm new/Test-Simple-1.302086/lib/Test2/Event/Skip.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Skip.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Skip.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Subtest.pm new/Test-Simple-1.302086/lib/Test2/Event/Subtest.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Subtest.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Subtest.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/TAP/Version.pm new/Test-Simple-1.302086/lib/Test2/Event/TAP/Version.pm --- old/Test-Simple-1.302085/lib/Test2/Event/TAP/Version.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/TAP/Version.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/version/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event/Waiting.pm new/Test-Simple-1.302086/lib/Test2/Event/Waiting.pm --- old/Test-Simple-1.302085/lib/Test2/Event/Waiting.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event/Waiting.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Event.pm new/Test-Simple-1.302086/lib/Test2/Event.pm --- old/Test-Simple-1.302085/lib/Test2/Event.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Event.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Util::HashBase qw/trace nested in_subtest subtest_id/; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Formatter/TAP.pm new/Test-Simple-1.302086/lib/Test2/Formatter/TAP.pm --- old/Test-Simple-1.302085/lib/Test2/Formatter/TAP.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Formatter/TAP.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Util qw/clone_io/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Formatter.pm new/Test-Simple-1.302086/lib/Test2/Formatter.pm --- old/Test-Simple-1.302085/lib/Test2/Formatter.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Formatter.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; my %ADDED; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Hub/Interceptor/Terminator.pm new/Test-Simple-1.302086/lib/Test2/Hub/Interceptor/Terminator.pm --- old/Test-Simple-1.302085/lib/Test2/Hub/Interceptor/Terminator.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Hub/Interceptor/Terminator.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Hub/Interceptor.pm new/Test-Simple-1.302086/lib/Test2/Hub/Interceptor.pm --- old/Test-Simple-1.302085/lib/Test2/Hub/Interceptor.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Hub/Interceptor.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Hub::Interceptor::Terminator(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Hub/Subtest.pm new/Test-Simple-1.302086/lib/Test2/Hub/Subtest.pm --- old/Test-Simple-1.302085/lib/Test2/Hub/Subtest.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Hub/Subtest.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Hub.pm new/Test-Simple-1.302086/lib/Test2/Hub.pm --- old/Test-Simple-1.302085/lib/Test2/Hub.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Hub.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Carp qw/carp croak confess/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/IPC/Driver/Files.pm new/Test-Simple-1.302086/lib/Test2/IPC/Driver/Files.pm --- old/Test-Simple-1.302085/lib/Test2/IPC/Driver/Files.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/IPC/Driver/Files.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/IPC/Driver.pm new/Test-Simple-1.302086/lib/Test2/IPC/Driver.pm --- old/Test-Simple-1.302085/lib/Test2/IPC/Driver.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/IPC/Driver.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Carp qw/confess longmess/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/IPC.pm new/Test-Simple-1.302086/lib/Test2/IPC.pm --- old/Test-Simple-1.302085/lib/Test2/IPC.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/IPC.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::API::Instance; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Tools/Tiny.pm new/Test-Simple-1.302086/lib/Test2/Tools/Tiny.pm --- old/Test-Simple-1.302085/lib/Test2/Tools/Tiny.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Tools/Tiny.pm 2017-06-20 19:43:15.000000000 +0200 @@ -10,7 +10,7 @@ use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; BEGIN { require Exporter; our @ISA = qw(Exporter) } our @EXPORT = qw{ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Util/ExternalMeta.pm new/Test-Simple-1.302086/lib/Test2/Util/ExternalMeta.pm --- old/Test-Simple-1.302085/lib/Test2/Util/ExternalMeta.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Util/ExternalMeta.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Util/Trace.pm new/Test-Simple-1.302086/lib/Test2/Util/Trace.pm --- old/Test-Simple-1.302085/lib/Test2/Util/Trace.pm 2017-05-02 04:24:39.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Util/Trace.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Test2::Util qw/get_tid pkg_to_file/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2/Util.pm new/Test-Simple-1.302086/lib/Test2/Util.pm --- old/Test-Simple-1.302085/lib/Test2/Util.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2/Util.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use Config qw/%Config/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/Test2.pm new/Test-Simple-1.302086/lib/Test2.pm --- old/Test-Simple-1.302085/lib/Test2.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/Test2.pm 2017-06-20 19:43:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/lib/ok.pm new/Test-Simple-1.302086/lib/ok.pm --- old/Test-Simple-1.302085/lib/ok.pm 2017-05-02 04:24:38.000000000 +0200 +++ new/Test-Simple-1.302086/lib/ok.pm 2017-06-20 19:43:15.000000000 +0200 @@ -1,5 +1,5 @@ package ok; -our $VERSION = '1.302085'; +our $VERSION = '1.302086'; use strict; use Test::More (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302085/t/Legacy/no_log_results.t new/Test-Simple-1.302086/t/Legacy/no_log_results.t --- old/Test-Simple-1.302085/t/Legacy/no_log_results.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Simple-1.302086/t/Legacy/no_log_results.t 2017-06-20 19:43:15.000000000 +0200 @@ -0,0 +1,19 @@ +use strict; +use warnings; + +use Test::More; + +sub it { + my $tb = Test::Builder->new; + $tb->no_log_results; + + ok(1, "sample"); + ok(2, "sample"); + + is_deeply([$tb->details], [], "no details were logged"); +} + +it(); +subtest it => \⁢ + +done_testing;

1 0

commit perl-Future for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-Future for openSUSE:Factory checked in at 2017-06-26 15:56:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Future (Old) and /work/SRC/openSUSE:Factory/.perl-Future.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Future" Mon Jun 26 15:56:09 2017 rev:4 rq:506080 version:0.35 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Future/perl-Future.changes 2016-10-06 12:46:28.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Future.new/perl-Future.changes 2017-06-26 15:56:18.133488703 +0200 @@ -1,0 +2,14 @@ +Sat Jun 24 05:37:50 UTC 2017 - coolo(a)suse.com + +- updated to 0.35 + see /usr/share/doc/packages/perl-Future/Changes + + 0.35 2017/06/23 20:37:57 + [CHANGES] + * Link to YAPC::EU talk video in SEE ALSO + + [BUGFIXES] + * Handle cancelled/completed slots when fmap is cancelled (RT120469) + (thanks tm604) + +------------------------------------------------------------------- Old: ---- Future-0.34.tar.gz New: ---- Future-0.35.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Future.spec ++++++ --- /var/tmp/diff_new_pack.DYIDhF/_old 2017-06-26 15:56:19.041360679 +0200 +++ /var/tmp/diff_new_pack.DYIDhF/_new 2017-06-26 15:56:19.041360679 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Future # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Future -Version: 0.34 +Version: 0.35 Release: 0 %define cpan_name Future Summary: Represent an Operation Awaiting Completion License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Future/ -Source0: http://www.cpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.ta… Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -90,6 +90,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes examples LICENSE README +%doc Changes examples README +%license LICENSE %changelog ++++++ Future-0.34.tar.gz -> Future-0.35.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/Changes new/Future-0.35/Changes --- old/Future-0.34/Changes 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/Changes 2017-06-23 21:39:17.000000000 +0200 @@ -1,5 +1,13 @@ Revision history for Future +0.35 2017/06/23 20:37:57 + [CHANGES] + * Link to YAPC::EU talk video in SEE ALSO + + [BUGFIXES] + * Handle cancelled/completed slots when fmap is cancelled (RT120469) + (thanks tm604) + 0.34 2016/10/02 18:40:06 [CHANGES] * Added Future::Mutex diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/LICENSE new/Future-0.35/LICENSE --- old/Future-0.34/LICENSE 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/LICENSE 2017-06-23 21:39:17.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2016 by Paul Evans <leonerd(a)leonerd.org.uk>. +This software is copyright (c) 2017 by Paul Evans <leonerd(a)leonerd.org.uk>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2016 by Paul Evans <leonerd(a)leonerd.org.uk>. +This software is Copyright (c) 2017 by Paul Evans <leonerd(a)leonerd.org.uk>. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2016 by Paul Evans <leonerd(a)leonerd.org.uk>. +This software is Copyright (c) 2017 by Paul Evans <leonerd(a)leonerd.org.uk>. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/META.json new/Future-0.35/META.json --- old/Future-0.34/META.json 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/META.json 2017-06-23 21:39:17.000000000 +0200 @@ -4,7 +4,7 @@ "Paul Evans <leonerd(a)leonerd.org.uk>" ], "dynamic_config" : 1, - "generated_by" : "Module::Build version 0.4218", + "generated_by" : "Module::Build version 0.422", "license" : [ "perl_5" ], @@ -34,19 +34,19 @@ "provides" : { "Future" : { "file" : "lib/Future.pm", - "version" : "0.34" + "version" : "0.35" }, "Future::Mutex" : { "file" : "lib/Future/Mutex.pm", - "version" : "0.34" + "version" : "0.35" }, "Future::Utils" : { "file" : "lib/Future/Utils.pm", - "version" : "0.34" + "version" : "0.35" }, "Test::Future" : { "file" : "lib/Test/Future.pm", - "version" : "0.34" + "version" : "0.35" } }, "release_status" : "stable", @@ -56,6 +56,6 @@ ], "x_IRC" : "irc://irc.perl.org/#io-async" }, - "version" : "0.34", + "version" : "0.35", "x_serialization_backend" : "JSON::PP version 2.27400" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/META.yml new/Future-0.35/META.yml --- old/Future-0.34/META.yml 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/META.yml 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ Test::More: '0.88' Test::Refcount: '0' dynamic_config: 1 -generated_by: 'Module::Build version 0.4218, CPAN::Meta::Converter version 2.150005' +generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -17,16 +17,16 @@ provides: Future: file: lib/Future.pm - version: '0.34' + version: '0.35' Future::Mutex: file: lib/Future/Mutex.pm - version: '0.34' + version: '0.35' Future::Utils: file: lib/Future/Utils.pm - version: '0.34' + version: '0.35' Test::Future: file: lib/Test/Future.pm - version: '0.34' + version: '0.35' requires: Carp: '1.25' Test::Builder::Module: '0' @@ -35,5 +35,5 @@ resources: IRC: irc://irc.perl.org/#io-async license: http://dev.perl.org/licenses/ -version: '0.34' +version: '0.35' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/Makefile.PL new/Future-0.35/Makefile.PL --- old/Future-0.34/Makefile.PL 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/Makefile.PL 2017-06-23 21:39:17.000000000 +0200 @@ -1,4 +1,4 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.4218 +# Note: this file was auto-generated by Module::Build::Compat version 0.4220 require 5.008; use ExtUtils::MakeMaker; WriteMakefile diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/README new/Future-0.35/README --- old/Future-0.34/README 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/README 2017-06-23 21:39:17.000000000 +0200 @@ -1158,6 +1158,10 @@ http://leonerds-code.blogspot.co.uk/2013/12/futures-advent-day-1.html + * "Asynchronous Programming with Futures" - YAPC::EU 2014 + + https://www.youtube.com/watch?v=u9dZgFM6FtE + TODO * Consider the ability to pass the constructor an await CODEref, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future/Mutex.pm new/Future-0.35/lib/Future/Mutex.pm --- old/Future-0.34/lib/Future/Mutex.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future/Mutex.pm 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ use strict; use warnings; -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Future; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future/Utils.pm new/Future-0.35/lib/Future/Utils.pm --- old/Future-0.34/lib/Future/Utils.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future/Utils.pm 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ use strict; use warnings; -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Exporter 'import'; # Can't import the one from Exporter as it relies on package inheritance @@ -639,7 +639,7 @@ !defined $_ or $_->is_ready or $_->cancel for @slots; }); $future->on_cancel( sub { - $_->cancel for @slots; + !defined $_ or $_->is_ready or $_->cancel for @slots; }); return $future; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future.pm new/Future-0.35/lib/Future.pm --- old/Future-0.34/lib/Future.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future.pm 2017-06-23 21:39:17.000000000 +0200 @@ -9,7 +9,7 @@ use warnings; no warnings 'recursion'; # Disable the "deep recursion" warning -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Carp qw(); # don't import croak use Scalar::Util qw( weaken blessed reftype ); @@ -771,7 +771,7 @@ sub get { my $self = shift; - $self->await until $self->{ready}; + until( $self->{ready} ) { $self->await } if( $self->{failure} ) { $self->{reported} = 1; my $exception = $self->{failure}->[0]; @@ -902,7 +902,7 @@ sub failure { my $self = shift; - $self->await until $self->{ready}; + until( $self->{ready} ) { $self->await } return unless $self->{failure}; $self->{reported} = 1; return $self->{failure}->[0] if !wantarray; @@ -2354,6 +2354,12 @@ L<http://leonerds-code.blogspot.co.uk/2013/12/futures-advent-day-1.html> +=item * + +"Asynchronous Programming with Futures" - YAPC::EU 2014 + +L<https://www.youtube.com/watch?v=u9dZgFM6FtE> + =back =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Test/Future.pm new/Future-0.35/lib/Test/Future.pm --- old/Future-0.34/lib/Test/Future.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Test/Future.pm 2017-06-23 21:39:17.000000000 +0200 @@ -9,7 +9,7 @@ use warnings; use base qw( Test::Builder::Module ); -our $VERSION = '0.34'; +our $VERSION = '0.35'; our @EXPORT = qw( no_pending_futures diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/t/36utils-map.t new/Future-0.35/t/36utils-map.t --- old/Future-0.34/t/36utils-map.t 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/t/36utils-map.t 2017-06-23 21:39:17.000000000 +0200 @@ -4,6 +4,7 @@ use warnings; use Test::More; +use Test::Fatal; use Future; use Future::Utils qw( fmap_concat fmap_scalar ); @@ -43,6 +44,19 @@ is_deeply( [ $future->get ], [qw( A B C D E )], '$future->get for fmap_concat out of order' ); } +# fmap_concat cancel +{ + my $f = Future->new; + my $fmap = fmap_concat { $f } + foreach => [ $f ], + concurrent => 2; + + ok( !exception { + $fmap->cancel; + }, '$fmap_concat->cancel does not throw on undef slots' ); + ok( $fmap->is_cancelled, 'was cancelled correctly' ); +} + # fmap_scalar no concurrency { my @subf;

1 0

commit perl-AnyEvent for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-AnyEvent for openSUSE:Factory checked in at 2017-06-26 15:56:04 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-AnyEvent (Old) and /work/SRC/openSUSE:Factory/.perl-AnyEvent.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-AnyEvent" Mon Jun 26 15:56:04 2017 rev:32 rq:506078 version:7.14 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-AnyEvent/perl-AnyEvent.changes 2016-09-30 15:32:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-AnyEvent.new/perl-AnyEvent.changes 2017-06-26 15:56:08.806803908 +0200 @@ -1,0 +2,6 @@ +Sun Jun 25 05:02:30 UTC 2017 - coolo(a)suse.com + +- updated to 7.14 + see /usr/share/doc/packages/perl-AnyEvent/Changes + +------------------------------------------------------------------- Old: ---- AnyEvent-7.13.tar.gz New: ---- AnyEvent-7.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-AnyEvent.spec ++++++ --- /var/tmp/diff_new_pack.ITHZp9/_old 2017-06-26 15:56:09.554698443 +0200 +++ /var/tmp/diff_new_pack.ITHZp9/_new 2017-06-26 15:56:09.558697879 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-AnyEvent # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-AnyEvent -Version: 7.13 +Version: 7.14 Release: 0 #Upstream: CHECK(GPL-1.0+ or Artistic-1.0) %define cpan_name AnyEvent @@ -25,7 +25,7 @@ License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/AnyEvent/ -Source0: http://www.cpan.org/authors/id/M/ML/MLEHMANN/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/M/ML/MLEHMANN/%{cpan_name}-%{version}.… Source1: cpanspec.yml # MANUAL #BuildArch: noarch @@ -94,6 +94,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes COPYING mktest README util +%doc Changes mktest README util +%license COPYING %changelog ++++++ AnyEvent-7.13.tar.gz -> AnyEvent-7.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/Changes new/AnyEvent-7.14/Changes --- old/AnyEvent-7.13/Changes 2016-09-17 04:33:43.000000000 +0200 +++ new/AnyEvent-7.14/Changes 2017-06-24 01:44:56.000000000 +0200 @@ -9,9 +9,27 @@ TODO: invalid. and localhost. specialcasing inside AEDNS and not AESocket (rfc6761) TODO: maybe implement env variable to give hosts precedence TODO: more formats for parse_ipv6 (single ipv6 address without port, ...p80, ...#80) - TODO: inet_aton maybe pack C4? no, add a comment why not -TODO: hosts read multiple times for initial concurrent tcp_connect's? +TODO: socket prepare callbacks, can they easily signal failure as well? + +7.14 Sat Jun 24 01:44:19 CEST 2017 + - fix a crash bug in AnyEvent::Handle with openssl 1.1.0 (patched + by Paul Howarth and apparently tracked down by Mike McCauley). + - AnyEvent::Handle->keepalive was documented (and defined) twice + (found by Matt Merhar). + - AnyEvent::Socket::tcp_bind/tcp_server would immediately unlink a unix + listening socket unless a guard is used. Change this so that no + cleanup will be performed unless a guard is used and document this more + clearly. + - make tcp_bind/tcp_server error messages more regular. + - work around latest perl upstream breakage - this time, perl5porters were + apparently bullied by a bogus CVE (CVE-2016-1238), and since distros + stupidly apply anything that has "security fix" stamped on it, it's likely + going to be a problem in practise (and working around it is trivial on + windows and unix). + - add TCP_FASTOPEN/MSG_FASTOPEN and MSG_NOSIGNAL/MSG_MORE/MSG_DONTWAIT + to constants. + - update warnings to common::sense 3.74 standards. 7.13 Sat Sep 17 04:31:49 CEST 2016 - Only call tlsext_host_name for non-empty common names (reported diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/META.json new/AnyEvent-7.14/META.json --- old/AnyEvent-7.13/META.json 2016-09-17 04:33:45.000000000 +0200 +++ new/AnyEvent-7.14/META.json 2017-06-24 01:50:35.000000000 +0200 @@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.150001", + "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351", "license" : [ "unknown" ], @@ -45,5 +45,5 @@ } }, "release_status" : "stable", - "version" : 7.13 + "version" : "7.14" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/META.yml new/AnyEvent-7.14/META.yml --- old/AnyEvent-7.13/META.yml 2016-09-17 04:33:45.000000000 +0200 +++ new/AnyEvent-7.14/META.yml 2017-06-24 01:50:35.000000000 +0200 @@ -3,28 +3,28 @@ author: - unknown build_requires: - ExtUtils::MakeMaker: '0' + ExtUtils::MakeMaker: 0 configure_requires: - Canary::Stability: '0' - ExtUtils::MakeMaker: '6.52' + Canary::Stability: 0 + ExtUtils::MakeMaker: 6.52 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.150001' +generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: '1.4' + version: 1.4 name: AnyEvent no_index: directory: - t - inc recommends: - Async::Interrupt: '1' - EV: '4' - Guard: '1.02' - JSON: '2.09' - JSON::XS: '2.2' - Net::SSLeay: '1.33' - Task::Weaken: '0' + Async::Interrupt: 1 + EV: 4 + Guard: 1.02 + JSON: 2.09 + JSON::XS: 2.2 + Net::SSLeay: 1.33 + Task::Weaken: 0 requires: {} -version: 7.13 +version: 7.14 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/Makefile.PL new/AnyEvent-7.14/Makefile.PL --- old/AnyEvent-7.13/Makefile.PL 2016-09-17 04:32:17.000000000 +0200 +++ new/AnyEvent-7.14/Makefile.PL 2017-02-13 13:26:35.000000000 +0100 @@ -22,7 +22,7 @@ EOF -do "constants.pl.PL" +do "./constants.pl.PL" or die "cannot execute constants.pl.PL: $@"; WriteMakefile( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/README new/AnyEvent-7.14/README --- old/AnyEvent-7.13/README 2016-09-17 04:33:45.000000000 +0200 +++ new/AnyEvent-7.14/README 2017-06-24 01:50:35.000000000 +0200 @@ -916,13 +916,12 @@ model is autodetected (or immediately if that has already happened). The block will be executed *after* the actual backend has been - detected ($AnyEvent::MODEL is set), but *before* any watchers have - been created, so it is possible to e.g. patch @AnyEvent::ISA or do - other initialisations - see the sources of AnyEvent::Strict or - AnyEvent::AIO to see how this is used. + detected ($AnyEvent::MODEL is set), so it is possible to do some + initialisation only when AnyEvent is actually initialised - see the + sources of AnyEvent::AIO to see how this is used. The most common usage is to create some global watchers, without - forcing event module detection too early, for example, AnyEvent::AIO + forcing event module detection too early. For example, AnyEvent::AIO creates and installs the global IO::AIO watcher in a "post_detect" block to avoid autodetecting the event module at load time. @@ -948,9 +947,16 @@ $WATCHER ||= $guard; @AnyEvent::post_detect - If there are any code references in this array (you can "push" to it - before or after loading AnyEvent), then they will be called directly - after the event loop has been chosen. + This is a lower level interface then "AnyEvent::post_detect" (the + function). This variable is mainly useful for modules that can do + something useful when AnyEvent is used and thus want to know when it + is initialised, but do not need to even load it by default. This + array provides the means to hook into AnyEvent passively, without + loading it. + + Here is how it works: If there are any code references in this array + (you can "push" to it before or after loading AnyEvent), then they + will be called directly after the event loop has been chosen. You should check $AnyEvent::MODEL before adding to this array, though: if it is defined then the event loop has already been @@ -959,12 +965,6 @@ Best use "AnyEvent::post_detect { BLOCK }" when your application allows it, as it takes care of these details. - This variable is mainly useful for modules that can do something - useful when AnyEvent is used and thus want to know when it is - initialised, but do not need to even load it by default. This array - provides the means to hook into AnyEvent passively, without loading - it. - Example: To load Coro::AnyEvent whenever Coro and AnyEvent are used together, you could put this into Coro (this is the actual code used by Coro to accomplish this): diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/constants.pl.PL new/AnyEvent-7.14/constants.pl.PL --- old/AnyEvent-7.13/constants.pl.PL 2013-08-01 02:50:59.000000000 +0200 +++ new/AnyEvent-7.14/constants.pl.PL 2017-02-13 15:51:32.000000000 +0100 @@ -14,11 +14,11 @@ } { - # from common::sense 3.7 + # from common::sense 3.74 use strict qw(vars subs); no warnings; use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype - inplace io pipe unpack deprecated glob digit printf + inplace io pipe unpack glob digit printf layer reserved taint closure semicolon); no warnings qw(exec newline unopened); @@ -165,6 +165,11 @@ linux TCP_QUICKACK 12 linux TCP_CONGESTION 13 linux TCP_MD5SIG 14 +linux TCP_FASTOPEN 23 +linux MSG_DONTWAIT 0x0040 +linux MSG_NOSIGNAL 0x4000 +linux MSG_MORE 0x8000 +linux MSG_FASTOPEN 0x20000000 netbsd TCP_MAXSEG 2 netbsd TCP_KEEPIDLE 3 netbsd TCP_NOPUSH 4 @@ -174,15 +179,17 @@ netbsd TCP_NOOPT 8 netbsd TCP_MD5SIG 0x10 netbsd TCP_CONGESTION 0x20 -cygwin TCP_MAXSEG 0x02 -cygwin TCP_NOPUSH 0x04 -cygwin TCP_NOOPT 0x08 +netbsd MSG_NOSIGNAL 0x0400 +cygwin TCP_MAXSEG 0x02 +cygwin TCP_NOPUSH 0x04 +cygwin TCP_NOOPT 0x08 freebsd TCP_MAXSEG 0x02 freebsd TCP_NOPUSH 0x04 freebsd TCP_NOOPT 0x08 freebsd TCP_MD5SIG 0x10 freebsd TCP_INFO 0x20 freebsd TCP_CONGESTION 0x40 +freebsd MSG_NOSIGNAL 0x20000 solaris TCP_CORK 0x18 solaris TCP_LINGER2 0x1C solaris TCP_INIT_CWND 0x15 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/lib/AnyEvent/DNS.pm new/AnyEvent-7.14/lib/AnyEvent/DNS.pm --- old/AnyEvent-7.13/lib/AnyEvent/DNS.pm 2015-06-16 05:21:36.000000000 +0200 +++ new/AnyEvent-7.14/lib/AnyEvent/DNS.pm 2017-06-10 18:38:13.000000000 +0200 @@ -385,11 +385,25 @@ minfo => 14, mx => 15, txt => 16, + sig => 24, + key => 25, + gpos => 27, # rfc1712 aaaa => 28, + loc => 29, # rfc1876 srv => 33, naptr => 35, # rfc2915 dname => 39, # rfc2672 opt => 41, + ds => 43, # rfc4034 + sshfp => 44, # rfc4255 + rrsig => 46, # rfc4034 + nsec => 47, # rfc4034 + dnskey=> 48, # rfc4034 + smimea=> 53, # rfc8162 + cds => 59, # rfc7344 + cdnskey=> 60, # rfc7344 + openpgpkey=> 61, # rfc7926 + csync => 62, # rfc7929 spf => 99, tkey => 249, tsig => 250, @@ -397,6 +411,7 @@ axfr => 252, mailb => 253, "*" => 255, + uri => 256, ); our %type_str = reverse %type_id; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/lib/AnyEvent/Handle.pm new/AnyEvent-7.14/lib/AnyEvent/Handle.pm --- old/AnyEvent-7.13/lib/AnyEvent/Handle.pm 2016-01-07 11:01:45.000000000 +0100 +++ new/AnyEvent-7.14/lib/AnyEvent/Handle.pm 2016-11-26 04:33:34.000000000 +0100 @@ -761,23 +761,6 @@ }; } -=item $handle->keepalive ($boolean) - -Enables or disables the C<keepalive> setting (see constructor argument of -the same name for details). - -=cut - -sub keepalive { - $_[0]{keepalive} = $_[1]; - - eval { - local $SIG{__DIE__}; - setsockopt $_[0]{fh}, Socket::SOL_SOCKET (), Socket::SO_KEEPALIVE (), int $_[1] - if $_[0]{fh}; - }; -} - =item $handle->on_starttls ($cb) Replace the current C<on_starttls> callback (see the C<on_starttls> constructor argument). @@ -2212,19 +2195,19 @@ # basically, this is deep magic (because SSL_read should have the same issues) # but the openssl maintainers basically said: "trust us, it just works". # (unfortunately, we have to hardcode constants because the abysmally misdesigned - # and mismaintained ssleay-module doesn't even offer them). + # and mismaintained ssleay-module didn't offer them for a decade or so). # http://www.mail-archive.com/openssl-dev@openssl.org/msg22420.html # # in short: this is a mess. - # + # # note that we do not try to keep the length constant between writes as we are required to do. # we assume that most (but not all) of this insanity only applies to non-blocking cases, # and we drive openssl fully in blocking mode here. Or maybe we don't - openssl seems to # have identity issues in that area. -# Net::SSLeay::CTX_set_mode ($ssl, +# Net::SSLeay::set_mode ($ssl, # (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ENABLE_PARTIAL_WRITE () } || 1) # | (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ACCEPT_MOVING_WRITE_BUFFER () } || 2)); - Net::SSLeay::CTX_set_mode ($tls, 1|2); + Net::SSLeay::set_mode ($tls, 1|2); $self->{_rbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ()); $self->{_wbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ()); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/lib/AnyEvent/Socket.pm new/AnyEvent-7.14/lib/AnyEvent/Socket.pm --- old/AnyEvent-7.13/lib/AnyEvent/Socket.pm 2016-03-27 00:42:19.000000000 +0100 +++ new/AnyEvent-7.14/lib/AnyEvent/Socket.pm 2016-12-12 17:13:42.000000000 +0100 @@ -1102,12 +1102,16 @@ Croaks on any errors it can detect before the listen. -If called in non-void context, then this function returns a guard object -whose lifetime it tied to the TCP server: If the object gets destroyed, -the server will be stopped (but existing accepted connections will -not be affected). +In non-void context, this function returns a guard object whose lifetime +it tied to the TCP server: If the object gets destroyed, the server will +be stopped and the listening socket will be cleaned up/unlinked (already +accepted connections will not be affected). + +When called in void-context, AnyEvent will keep the listening socket alive +internally. In this case, there is no guarantee that the listening socket +will be cleaned up or unlinked. -Regardless, when the function returns to the caller, the socket is bound +In all cases, when the function returns to the caller, the socket is bound and in listening state. If you need more control over the listening socket, you can provide a @@ -1153,8 +1157,9 @@ In case of an error, C<tcp_bind> either croaks, or passes C<undef> to the C<$done_cb>. -The guard only protects the set-up phase, it isn't used after C<$done_cb> -has been invoked. +In non-void context, a guard will be returned. It will clean up/unlink the +listening socket when destroyed. In void context, no automatic clean up +might be performed. =cut @@ -1166,63 +1171,64 @@ unless defined $host; my $ipn = parse_address $host - or Carp::croak "AnyEvent::Socket::tcp_server: cannot parse '$host' as host address"; + or Carp::croak "tcp_bind: cannot parse '$host' as host address"; my $af = address_family $ipn; my %state; # win32 perl is too stupid to get this right :/ - Carp::croak "tcp_server/socket: address family not supported" + Carp::croak "tcp_bind: AF_UNIX address family not supported on win32" if AnyEvent::WIN32 && $af == AF_UNIX; - socket $state{fh}, $af, SOCK_STREAM, 0 - or Carp::croak "tcp_server/socket: $!"; + socket my $fh, $af, SOCK_STREAM, 0 + or Carp::croak "tcp_bind: $!"; + + $state{fh} = $fh; if ($af == AF_INET || $af == AF_INET6) { - setsockopt $state{fh}, SOL_SOCKET, SO_REUSEADDR, 1 - or Carp::croak "tcp_server/so_reuseaddr: $!" + setsockopt $fh, SOL_SOCKET, SO_REUSEADDR, 1 + or Carp::croak "tcp_bind: so_reuseaddr: $!" unless AnyEvent::WIN32; # work around windows bug unless ($service =~ /^\d*$/) { $service = (getservbyname $service, "tcp")[2] - or Carp::croak "$service: service unknown" + or Carp::croak "tcp_bind: unknown service '$service'" } } elsif ($af == AF_UNIX) { unlink $service; } - bind $state{fh}, pack_sockaddr $service, $ipn - or Carp::croak "bind: $!"; + bind $fh, pack_sockaddr $service, $ipn + or Carp::croak "tcp_bind: $!"; - if ($af == AF_UNIX) { - my $fh = $state{fh}; - my $ino = (stat $fh)[1]; + if ($af == AF_UNIX and defined wantarray) { + # this is racy, but is not designed to be foolproof, just best-effort + my $ino = (lstat $service)[1]; $state{unlink} = guard { - # this is racy, but is not designed to be foolproof, just best-effort unlink $service - if $ino == (stat $fh)[1]; + if (lstat $service)[1] == $ino; }; } - AnyEvent::fh_unblock $state{fh}; + AnyEvent::fh_unblock $fh; my $len; if ($prepare) { - my ($service, $host) = unpack_sockaddr getsockname $state{fh}; - $len = $prepare && $prepare->($state{fh}, format_address $host, $service); + my ($service, $host) = unpack_sockaddr getsockname $fh; + $len = $prepare && $prepare->($fh, format_address $host, $service); } $len ||= 128; - listen $state{fh}, $len - or Carp::croak "listen: $!"; + listen $fh, $len + or Carp::croak "tcp_bind: $!"; $done->(\%state); defined wantarray - ? guard { %state = () } # clear fh and watcher, which breaks the circular dependency + ? guard { %state = () } # clear fh, unlink : () } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/lib/AnyEvent.pm new/AnyEvent-7.14/lib/AnyEvent.pm --- old/AnyEvent-7.13/lib/AnyEvent.pm 2016-09-17 04:32:28.000000000 +0200 +++ new/AnyEvent-7.14/lib/AnyEvent.pm 2017-06-24 01:45:19.000000000 +0200 @@ -964,13 +964,12 @@ autodetected (or immediately if that has already happened). The block will be executed I<after> the actual backend has been detected -(C<$AnyEvent::MODEL> is set), but I<before> any watchers have been -created, so it is possible to e.g. patch C<@AnyEvent::ISA> or do -other initialisations - see the sources of L<AnyEvent::Strict> or +(C<$AnyEvent::MODEL> is set), so it is possible to do some initialisation +only when AnyEvent is actually initialised - see the sources of L<AnyEvent::AIO> to see how this is used. The most common usage is to create some global watchers, without forcing -event module detection too early, for example, L<AnyEvent::AIO> creates +event module detection too early. For example, L<AnyEvent::AIO> creates and installs the global L<IO::AIO> watcher in a C<post_detect> block to avoid autodetecting the event module at load time. @@ -997,9 +996,15 @@ =item @AnyEvent::post_detect -If there are any code references in this array (you can C<push> to it -before or after loading AnyEvent), then they will be called directly -after the event loop has been chosen. +This is a lower level interface then C<AnyEvent::post_detect> (the +function). This variable is mainly useful for modules that can do +something useful when AnyEvent is used and thus want to know when it +is initialised, but do not need to even load it by default. This array +provides the means to hook into AnyEvent passively, without loading it. + +Here is how it works: If there are any code references in this array (you +can C<push> to it before or after loading AnyEvent), then they will be +called directly after the event loop has been chosen. You should check C<$AnyEvent::MODEL> before adding to this array, though: if it is defined then the event loop has already been detected, and the @@ -1008,11 +1013,6 @@ Best use C<AnyEvent::post_detect { BLOCK }> when your application allows it, as it takes care of these details. -This variable is mainly useful for modules that can do something useful -when AnyEvent is used and thus want to know when it is initialised, but do -not need to even load it by default. This array provides the means to hook -into AnyEvent passively, without loading it. - Example: To load Coro::AnyEvent whenever Coro and AnyEvent are used together, you could put this into Coro (this is the actual code used by Coro to accomplish this): @@ -1260,7 +1260,7 @@ use Carp (); -our $VERSION = 7.13; +our $VERSION = 7.14; our $MODEL; our @ISA; our @REGISTRY; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-7.13/mktest new/AnyEvent-7.14/mktest --- old/AnyEvent-7.13/mktest 2014-08-28 17:00:09.000000000 +0200 +++ new/AnyEvent-7.14/mktest 2016-12-13 16:59:41.000000000 +0100 @@ -16,6 +16,7 @@ 68_poe AnyEvent::Impl::POE $^W = 0; 69_ev AnyEvent::Impl::EV 70_uv AnyEvent::Impl::UV +71_prima AnyEvent::Impl::Prima EOF ) | while read base module extra; do for test in 01 02 03 04 05 07 09; do

1 0

commit perl-Net-Whois-Raw for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-Net-Whois-Raw for openSUSE:Factory checked in at 2017-06-26 15:56:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old) and /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Net-Whois-Raw" Mon Jun 26 15:56:00 2017 rev:29 rq:506077 version:2.99009 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes 2017-06-09 15:58:17.760144031 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes 2017-06-26 15:56:04.963345893 +0200 @@ -1,0 +2,9 @@ +Sun Jun 25 06:04:07 UTC 2017 - coolo(a)suse.com + +- updated to 2.99009 + see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes + + 2.99009 Jun 24 2017 Gregory Oschwald + - Do not warn if newsrv is undefined + +------------------------------------------------------------------- Old: ---- Net-Whois-Raw-2.99008.tar.gz New: ---- Net-Whois-Raw-2.99009.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-Whois-Raw.spec ++++++ --- /var/tmp/diff_new_pack.Xa1dtQ/_old 2017-06-26 15:56:05.447277651 +0200 +++ /var/tmp/diff_new_pack.Xa1dtQ/_new 2017-06-26 15:56:05.451277088 +0200 @@ -17,7 +17,7 @@ Name: perl-Net-Whois-Raw -Version: 2.99008 +Version: 2.99009 Release: 0 %define cpan_name Net-Whois-Raw Summary: Get Whois information of domains and IP addresses ++++++ Net-Whois-Raw-2.99008.tar.gz -> Net-Whois-Raw-2.99009.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/Changes new/Net-Whois-Raw-2.99009/Changes --- old/Net-Whois-Raw-2.99008/Changes 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/Changes 2017-06-24 17:20:26.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Perl module Net::Whois::Raw. +2.99009 Jun 24 2017 Gregory Oschwald + - Do not warn if newsrv is undefined + 2.99008 Jun 7 2017 Alexander Nalobin - can bypass recursing to custom servers ($Net::Whois::Raw::Data::whois_servers_no_recurse) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/META.json new/Net-Whois-Raw-2.99009/META.json --- old/Net-Whois-Raw-2.99008/META.json 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/META.json 2017-06-24 17:20:26.000000000 +0200 @@ -59,6 +59,6 @@ "web" : "https://github.com/regru/Net-Whois-Raw" } }, - "version" : "2.99008" + "version" : "2.99009" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/META.yml new/Net-Whois-Raw-2.99009/META.yml --- old/Net-Whois-Raw-2.99008/META.yml 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/META.yml 2017-06-24 17:20:26.000000000 +0200 @@ -36,4 +36,4 @@ resources: bugtracker: https://github.com/regru/Net-Whois-Raw/issues repository: git://github.com/regru/Net-Whois-Raw.git -version: '2.99008' +version: '2.99009' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/Makefile.PL new/Net-Whois-Raw-2.99009/Makefile.PL --- old/Net-Whois-Raw-2.99008/Makefile.PL 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/Makefile.PL 2017-06-24 17:20:26.000000000 +0200 @@ -43,7 +43,7 @@ "Test::More" => 0, "Test::RequiresInternet" => 0 }, - "VERSION" => "2.99008", + "VERSION" => "2.99009", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/bin/pwhois new/Net-Whois-Raw-2.99009/bin/pwhois --- old/Net-Whois-Raw-2.99008/bin/pwhois 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/bin/pwhois 2017-06-24 17:20:26.000000000 +0200 @@ -240,7 +240,7 @@ =head1 VERSION -version 2.99008 +version 2.99009 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/dist.ini new/Net-Whois-Raw-2.99009/dist.ini --- old/Net-Whois-Raw-2.99008/dist.ini 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/dist.ini 2017-06-24 17:20:26.000000000 +0200 @@ -4,7 +4,7 @@ copyright_holder = Alexander Nalobin copyright_year = 2002-2017 -version = 2.99008 +version = 2.99009 [@Filter] -bundle = @Basic diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw/Common.pm new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw/Common.pm --- old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw/Common.pm 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw/Common.pm 2017-06-24 17:20:26.000000000 +0200 @@ -1,5 +1,5 @@ package Net::Whois::Raw::Common; -$Net::Whois::Raw::Common::VERSION = '2.99008'; +$Net::Whois::Raw::Common::VERSION = '2.99009'; # ABSTRACT: Helper for Net::Whois::Raw. use Encode; @@ -616,7 +616,7 @@ =head1 VERSION -version 2.99008 +version 2.99009 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw/Data.pm new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw/Data.pm --- old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw/Data.pm 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw/Data.pm 2017-06-24 17:20:26.000000000 +0200 @@ -1,5 +1,5 @@ package Net::Whois::Raw::Data; -$Net::Whois::Raw::Data::VERSION = '2.99008'; +$Net::Whois::Raw::Data::VERSION = '2.99009'; # ABSTRACT: Config for Net::Whois::Raw. use utf8; @@ -4290,7 +4290,7 @@ =head1 VERSION -version 2.99008 +version 2.99009 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw.pm new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw.pm --- old/Net-Whois-Raw-2.99008/lib/Net/Whois/Raw.pm 2017-06-07 11:36:08.000000000 +0200 +++ new/Net-Whois-Raw-2.99009/lib/Net/Whois/Raw.pm 2017-06-24 17:20:26.000000000 +0200 @@ -1,5 +1,5 @@ package Net::Whois::Raw; -$Net::Whois::Raw::VERSION = '2.99008'; +$Net::Whois::Raw::VERSION = '2.99009'; # ABSTRACT: Get Whois information of domains and IP addresses. require 5.008_001; @@ -204,10 +204,12 @@ } if ( - # Bypass recursing to custom servers - $Net::Whois::Raw::Data::whois_servers_no_recurse{ $newsrv } - # Bypass recursing to WHOIS servers with no IDN support - || $dom =~ /^xn--/i && $newsrv && $Net::Whois::Raw::Data::whois_servers_with_no_idn_support{ $newsrv } + defined $newsrv && ( + # Bypass recursing to custom servers + $Net::Whois::Raw::Data::whois_servers_no_recurse{ $newsrv } + # Bypass recursing to WHOIS servers with no IDN support + || $dom =~ /^xn--/i && $newsrv && $Net::Whois::Raw::Data::whois_servers_with_no_idn_support{ $newsrv } + ) ) { $newsrv = undef; } @@ -476,7 +478,7 @@ =head1 VERSION -version 2.99008 +version 2.99009 =head1 SYNOPSIS

1 0

commit perl-CPAN-Perl-Releases for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package perl-CPAN-Perl-Releases for openSUSE:Factory checked in at 2017-06-26 15:55:52 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-CPAN-Perl-Releases (Old) and /work/SRC/openSUSE:Factory/.perl-CPAN-Perl-Releases.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-CPAN-Perl-Releases" Mon Jun 26 15:55:52 2017 rev:47 rq:506076 version:3.24 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-CPAN-Perl-Releases/perl-CPAN-Perl-Releases.changes 2017-06-09 15:58:24.587180460 +0200 +++ /work/SRC/openSUSE:Factory/.perl-CPAN-Perl-Releases.new/perl-CPAN-Perl-Releases.changes 2017-06-26 15:56:03.863500988 +0200 @@ -1,0 +2,6 @@ +Wed Jun 21 05:09:28 UTC 2017 - coolo(a)suse.com + +- updated to 3.24 + see /usr/share/doc/packages/perl-CPAN-Perl-Releases/Changes + +------------------------------------------------------------------- Old: ---- CPAN-Perl-Releases-3.22.tar.gz New: ---- CPAN-Perl-Releases-3.24.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-CPAN-Perl-Releases.spec ++++++ --- /var/tmp/diff_new_pack.4PLQcx/_old 2017-06-26 15:56:04.563402291 +0200 +++ /var/tmp/diff_new_pack.4PLQcx/_new 2017-06-26 15:56:04.571401163 +0200 @@ -17,7 +17,7 @@ Name: perl-CPAN-Perl-Releases -Version: 3.22 +Version: 3.24 Release: 0 %define cpan_name CPAN-Perl-Releases Summary: Mapping Perl releases on CPAN to the location of the tarballs ++++++ CPAN-Perl-Releases-3.22.tar.gz -> CPAN-Perl-Releases-3.24.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/Changes new/CPAN-Perl-Releases-3.24/Changes --- old/CPAN-Perl-Releases-3.22/Changes 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/Changes 2017-06-20 11:08:34.000000000 +0200 @@ -1,8 +1,18 @@ ================================================== -Changes from 2012-06-01 00:00:00 +0000 to present. +Changes from 2012-06-21 00:00:00 +0000 to present. ================================================== ----------------------------------------- +version 3.24 at 2017-06-20 07:09:56 +0000 +----------------------------------------- + + Change: a38248b3e1a07cb2dc01ada285c6b83f1faa55a2 + Author: Chris 'BinGOs' Williams <chris(a)bingosnet.co.uk> + Date : 2017-06-20 08:09:56 +0000 + + Updated for v5.27.1 + +----------------------------------------- version 3.22 at 2017-05-31 21:26:56 +0000 ----------------------------------------- @@ -1367,16 +1377,6 @@ Updated for v5.17.2 ------------------------------------------ -version 0.60 at 2012-06-20 12:22:32 +0000 ------------------------------------------ - - Change: 7b6fdfd80d1867dc3bee6fc2f60f618aaf15651b - Author: Chris 'BinGOs' Williams <chris(a)bingosnet.co.uk> - Date : 2012-06-20 13:22:32 +0000 - - Updated for v5.17.1 - ================================================= -Plus 29 releases after 2012-06-01 00:00:00 +0000. +Plus 30 releases after 2012-06-21 00:00:00 +0000. ================================================= diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/META.json new/CPAN-Perl-Releases-3.24/META.json --- old/CPAN-Perl-Releases-3.22/META.json 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/META.json 2017-06-20 11:08:34.000000000 +0200 @@ -54,7 +54,7 @@ "web" : "https://github.com/bingos/cpan-perl-releases" } }, - "version" : "3.22", + "version" : "3.24", "x_serialization_backend" : "Cpanel::JSON::XS version 3.0233" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/META.yml new/CPAN-Perl-Releases-3.24/META.yml --- old/CPAN-Perl-Releases-3.22/META.yml 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/META.yml 2017-06-20 11:08:34.000000000 +0200 @@ -21,5 +21,5 @@ resources: homepage: https://github.com/bingos/cpan-perl-releases repository: https://github.com/bingos/cpan-perl-releases.git -version: '3.22' +version: '3.24' x_serialization_backend: 'YAML::Tiny version 1.70' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/Makefile.PL new/CPAN-Perl-Releases-3.24/Makefile.PL --- old/CPAN-Perl-Releases-3.22/Makefile.PL 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/Makefile.PL 2017-06-20 11:08:34.000000000 +0200 @@ -26,7 +26,7 @@ "IPC::Open3" => 0, "Test::More" => "0.47" }, - "VERSION" => "3.22", + "VERSION" => "3.24", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/README new/CPAN-Perl-Releases-3.24/README --- old/CPAN-Perl-Releases-3.22/README 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/README 2017-06-20 11:08:34.000000000 +0200 @@ -5,7 +5,7 @@ VERSION - version 3.22 + version 3.24 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/dist.ini new/CPAN-Perl-Releases-3.24/dist.ini --- old/CPAN-Perl-Releases-3.22/dist.ini 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/dist.ini 2017-06-20 11:08:34.000000000 +0200 @@ -1,5 +1,5 @@ name = CPAN-Perl-Releases -version = 3.22 +version = 3.24 author = Chris Williams <chris(a)bingosnet.co.uk> license = Perl_5 copyright_holder = Chris Williams diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/CPAN-Perl-Releases-3.22/lib/CPAN/Perl/Releases.pm new/CPAN-Perl-Releases-3.24/lib/CPAN/Perl/Releases.pm --- old/CPAN-Perl-Releases-3.22/lib/CPAN/Perl/Releases.pm 2017-05-31 23:29:03.000000000 +0200 +++ new/CPAN-Perl-Releases-3.24/lib/CPAN/Perl/Releases.pm 2017-06-20 11:08:34.000000000 +0200 @@ -1,5 +1,5 @@ package CPAN::Perl::Releases; -$CPAN::Perl::Releases::VERSION = '3.22'; +$CPAN::Perl::Releases::VERSION = '3.24'; #ABSTRACT: Mapping Perl releases on CPAN to the location of the tarballs use strict; @@ -203,6 +203,7 @@ "5.26.0-RC2" => { id => 'XSAWYERX' }, "5.26.0" => { id => 'XSAWYERX' }, "5.27.0" => { id => 'XSAWYERX' }, +"5.27.1" => { id => 'EHERMAN' }, }; sub perl_tarballs { @@ -270,7 +271,7 @@ =head1 VERSION -version 3.22 +version 3.24 =head1 SYNOPSIS

1 0

commit texamator for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package texamator for openSUSE:Factory checked in at 2017-06-26 15:55:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/texamator (Old) and /work/SRC/openSUSE:Factory/.texamator.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "texamator" Mon Jun 26 15:55:40 2017 rev:2 rq:506066 version:2.4.5+git.20170512.09c0307 Changes: -------- --- /work/SRC/openSUSE:Factory/texamator/texamator.changes 2017-05-24 16:52:00.168740331 +0200 +++ /work/SRC/openSUSE:Factory/.texamator.new/texamator.changes 2017-06-26 15:56:00.651953864 +0200 @@ -0,0 +1,5 @@ +------------------------------------------------------------------- +Sat Jun 24 15:49:25 UTC 2017 - bwiedemann(a)suse.com + +- Use convert -strip to not add timestamps to png files + ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ texamator.spec ++++++ --- /var/tmp/diff_new_pack.ndYyrP/_old 2017-06-26 15:56:01.267867011 +0200 +++ /var/tmp/diff_new_pack.ndYyrP/_new 2017-06-26 15:56:01.271866447 +0200 @@ -85,7 +85,7 @@ if [ "$_width" -ge 256 ]; then for s in 16 32 48 64 128 256; do mkdir -p %{buildroot}%{_datadir}/icons/hicolor/${s}x${s}/apps - convert \ + convert -strip \ $_file -resize $s \ %{buildroot}%{_datadir}/icons/hicolor/${s}x${s}/apps/%{name}.png done

1 0

commit qsyncthingtray for openSUSE:Factory
by root＠hilbert.suse.de 26 Jun '17

26 Jun '17

Hello community, here is the log from the commit of package qsyncthingtray for openSUSE:Factory checked in at 2017-06-26 15:55:13 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/qsyncthingtray (Old) and /work/SRC/openSUSE:Factory/.qsyncthingtray.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "qsyncthingtray" Mon Jun 26 15:55:13 2017 rev:2 rq:506065 version:0.5.7 Changes: -------- --- /work/SRC/openSUSE:Factory/qsyncthingtray/qsyncthingtray.changes 2017-05-17 10:54:10.704310998 +0200 +++ /work/SRC/openSUSE:Factory/.qsyncthingtray.new/qsyncthingtray.changes 2017-06-26 15:55:56.592526304 +0200 @@ -1,0 +2,5 @@ +Sat Jun 24 15:55:41 UTC 2017 - bwiedemann(a)suse.com + +- Use convert -strip to not add timestamps to png files + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ qsyncthingtray.spec ++++++ --- /var/tmp/diff_new_pack.sZ6Fav/_old 2017-06-26 15:55:57.748363313 +0200 +++ /var/tmp/diff_new_pack.sZ6Fav/_new 2017-06-26 15:55:57.752362750 +0200 @@ -89,7 +89,7 @@ for size in 16 32 48 64 128 256 512; do mkdir -p %{buildroot}%{_datadir}/icons/hicolor/${size}x${size}/apps/ - convert -resize ${size}x${size} resources/images/Icon1024.png \ + convert -strip -resize ${size}x${size} resources/images/Icon1024.png \ %{buildroot}%{_datadir}/icons/hicolor/${size}x${size}/apps/%{name}.png done

1 0