Hello community, here is the log from the commit of package perl-YAML for openSUSE:Factory checked in at 2012-05-08 06:47:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-YAML (Old) and /work/SRC/openSUSE:Factory/.perl-YAML.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-YAML", Maintainer is "c...@suse.com" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-YAML/perl-YAML.changes 2011-10-03 09:24:36.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-YAML.new/perl-YAML.changes 2012-05-08 06:47:46.000000000 +0200 @@ -1,0 +2,17 @@ +Fri Apr 20 07:16:20 UTC 2012 - pascal.ble...@opensuse.org + +- update to 0.81: + * patch from https://rt.cpan.org/Public/Bug/Display.html?id=74826 + * YAML::Mo uses Safe Mo https://rt.cpan.org/Public/Bug/Display.html?id=76664 + +- changes from 0.80: + * patch from https://rt.cpan.org/Ticket/Display.html?id=73702 + * make YAML::Node subclass YAML::Mo::Object as well as Exporter + +- changes from 0.79: + * noticed Mo::xxx causing problems on newer perls, removed xxx for now + +- changes from 0.78: + * deal with B::Deparse changes + +------------------------------------------------------------------- Old: ---- YAML-0.77.tar.gz New: ---- YAML-0.81.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-YAML.spec ++++++ --- /var/tmp/diff_new_pack.zEifid/_old 2012-05-08 06:47:48.000000000 +0200 +++ /var/tmp/diff_new_pack.zEifid/_new 2012-05-08 06:47:48.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-YAML # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,15 +16,14 @@ # - Name: perl-YAML -Version: 0.77 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 0.81 +Release: 0 %define cpan_name YAML Summary: YAML Ain't Markup Language (tm) -Url: http://search.cpan.org/dist/YAML/ +License: GPL-2.0+ or Artistic-1.0 Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/YAML/ Source: http://www.cpan.org/authors/id/I/IN/INGY/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -58,7 +57,7 @@ %perl_gen_filelist %clean -%{__rm} -rf %{buildroot} +%{?buildroot:%__rm -rf '%{buildroot}'} %files -f %{name}.files %defattr(-,root,root,755) ++++++ YAML-0.77.tar.gz -> YAML-0.81.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/Changes new/YAML-0.81/Changes --- old/YAML-0.77/Changes 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/Changes 2012-04-19 20:04:02.000000000 +0200 @@ -1,4 +1,27 @@ --- +version: 0.81 +date: Thu Apr 19 11:03:38 PDT 2012 +changes: +- Patch from https://rt.cpan.org/Public/Bug/Display.html?id=74826 +- YAML::Mo uses Safe Mo https://rt.cpan.org/Public/Bug/Display.html?id=76664 +--- +version: 0.80 +date: Fri Feb 10 12:56:08 PST 2012 +changes: +- Patch from https://rt.cpan.org/Ticket/Display.html?id=73702 +- Make YAML::Node subclass YAML::Mo::Object as well as Exporter (MSTROUT) +--- +version: 0.79 +date: Wed Feb 8 17:25:55 PST 2012 +changes: +- Peter Scott and others noticed Mo::xxx causing problems on newer perls. + Removed xxx for now. +--- +version: 0.78 +date: Sun Jan 1 23:53:57 PST 2012 +changes: +- Apply patch from ANDK++ to deal with B::Deparse changes. +--- version: 0.77 date: Thu Sep 29 18:28:25 CEST 2011 changes: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/LICENSE new/YAML-0.81/LICENSE --- old/YAML-0.77/LICENSE 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/LICENSE 2012-04-19 20:04:03.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2011 by Ingy döt Net <i...@cpan.org>. +This software is copyright (c) 2012 by Ingy döt Net <i...@cpan.org>. 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,21 +12,22 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2011 by Ingy döt Net <i...@cpan.org>. +This software is Copyright (c) 2012 by Ingy döt Net <i...@cpan.org>. This is free software, licensed under: The GNU General Public License, Version 1, February 1989 - GNU GENERAL PUBLIC LICENSE - Version 1, February 1989 + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 Copyright (C) 1989 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA + 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA + Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. - Preamble + Preamble The license agreements of most software companies try to keep users at the mercy of those companies. By contrast, our General Public @@ -67,7 +68,7 @@ The precise terms and conditions for copying, distribution and modification follow. - GNU GENERAL PUBLIC LICENSE + GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any program or other work which @@ -185,7 +186,7 @@ of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. - NO WARRANTY + NO WARRANTY 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN @@ -207,9 +208,9 @@ PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - END OF TERMS AND CONDITIONS + END OF TERMS AND CONDITIONS - Appendix: How to Apply These Terms to Your New Programs + Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to humanity, the best way to achieve this is to make it @@ -235,8 +236,9 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software Foundation, - Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + Also add information on how to contact you by electronic and paper mail. @@ -270,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2011 by Ingy döt Net <i...@cpan.org>. +This software is Copyright (c) 2012 by Ingy döt Net <i...@cpan.org>. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/MANIFEST new/YAML-0.81/MANIFEST --- old/YAML-0.77/MANIFEST 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/MANIFEST 2012-04-19 20:04:04.000000000 +0200 @@ -27,7 +27,6 @@ lib/YAML/Loader/Base.pm lib/YAML/Marshall.pm lib/YAML/Mo.pm -lib/YAML/Mo.pod lib/YAML/Node.pm lib/YAML/Tag.pm lib/YAML/Types.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/META.yml new/YAML-0.81/META.yml --- old/YAML-0.77/META.yml 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/META.yml 2012-04-19 20:04:04.000000000 +0200 @@ -3,11 +3,12 @@ author: - 'Ingy döt Net <i...@cpan.org>' build_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.59 configure_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.59 distribution_type: module -generated_by: 'Module::Install version 1.01' +dynamic_config: 1 +generated_by: 'Module::Install version 1.06' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,7 +24,10 @@ Filter::Util::Call: 0 perl: 5.8.1 resources: - homepage: http://github.com/ingydotnet/yaml-pm/tree + homepage: https://github.com/ingydotnet/yaml-pm/tree license: http://dev.perl.org/licenses/ - repository: git://github.com/ingydotnet/yaml-pm.git -version: 0.77 + repository: + type: git + url: git://github.com/ingydotnet/yaml-pm.git + web: https://github.com/ingydotnet/yaml-pm/tree +version: 0.81 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/README new/YAML-0.81/README --- old/YAML-0.77/README 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/README 2012-04-19 20:04:03.000000000 +0200 @@ -494,7 +494,7 @@ retain the optimum human readability. plain scalar - A plain sclar is unquoted. All plain scalars are automatic + A plain scalar is unquoted. All plain scalars are automatic candidates for "implicit tagging". This means that their tag may be determined automatically by examination. The typical uses for this are plain alpha strings, integers, real numbers, dates, times and @@ -608,7 +608,7 @@ <http://yaml.kwiki.org> is the official YAML wiki. SEE ALSO - See YAML::Syck. Fast! + See YAML::XS. Fast! AUTHOR Ingy döt Net <i...@cpan.org> @@ -620,7 +620,7 @@ added help along the way. COPYRIGHT - Copyright (c) 2005, 2006, 2008. Ingy döt Net. + Copyright (c) 2005, 2006, 2008, 2011-2012. Ingy döt Net. Copyright (c) 2001, 2002, 2005. Brian Ingerson. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Base.pm new/YAML-0.81/inc/Module/Install/Base.pm --- old/YAML-0.77/inc/Module/Install/Base.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Base.pm 2012-04-19 20:04:02.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Can.pm new/YAML-0.81/inc/Module/Install/Can.pm --- old/YAML-0.77/inc/Module/Install/Can.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Can.pm 2012-04-19 20:04:03.000000000 +0200 @@ -3,13 +3,12 @@ use strict; use Config (); -use File::Spec (); use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -29,7 +28,7 @@ eval { require $mod; $pkg->VERSION($ver || 0); 1 }; } -# check if we can run some command +# Check if we can run some command sub can_run { my ($self, $cmd) = @_; @@ -38,14 +37,88 @@ for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { next if $dir eq ''; - my $abs = File::Spec->catfile($dir, $_[1]); + require File::Spec; + my $abs = File::Spec->catfile($dir, $cmd); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } return; } -# can we locate a (the) C compiler +# Can our C compiler environment build XS files +sub can_xs { + my $self = shift; + + # Ensure we have the CBuilder module + $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 ); + + # Do we have the configure_requires checker? + local $@; + eval "require ExtUtils::CBuilder;"; + if ( $@ ) { + # They don't obey configure_requires, so it is + # someone old and delicate. Try to avoid hurting + # them by falling back to an older simpler test. + return $self->can_cc(); + } + + # Do we have a working C compiler + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + unless ( $builder->have_compiler ) { + # No working C compiler + return 0; + } + + # Write a C file representative of what XS becomes + require File::Temp; + my ( $FH, $tmpfile ) = File::Temp::tempfile( + "compilexs-XXXXX", + SUFFIX => '.c', + ); + binmode $FH; + print $FH <<'END_C'; +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +int main(int argc, char **argv) { + return 0; +} + +int boot_sanexs() { + return 1; +} + +END_C + close $FH; + + # Can the C compiler access the same headers XS does + my @libs = (); + my $object = undef; + eval { + local $^W = 0; + $object = $builder->compile( + source => $tmpfile, + ); + @libs = $builder->link( + objects => $object, + module_name => 'sanexs', + ); + }; + my $result = $@ ? 0 : 1; + + # Clean up all the build files + foreach ( $tmpfile, $object, @libs ) { + next unless defined $_; + 1 while unlink; + } + + return $result; +} + +# Can we locate a (the) C compiler sub can_cc { my $self = shift; my @chunks = split(/ /, $Config::Config{cc}) or return; @@ -78,4 +151,4 @@ __END__ -#line 156 +#line 236 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Fetch.pm new/YAML-0.81/inc/Module/Install/Fetch.pm --- old/YAML-0.77/inc/Module/Install/Fetch.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Fetch.pm 2012-04-19 20:04:03.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/GithubMeta.pm new/YAML-0.81/inc/Module/Install/GithubMeta.pm --- old/YAML-0.77/inc/Module/Install/GithubMeta.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/GithubMeta.pm 2012-04-19 20:04:03.000000000 +0200 @@ -7,20 +7,27 @@ use base qw(Module::Install::Base); use vars qw($VERSION); -$VERSION = '0.10'; +$VERSION = '0.16'; sub githubmeta { my $self = shift; return unless $Module::Install::AUTHOR; return unless _under_git(); return unless $self->can_run('git'); - return unless my ($git_url) = `git remote show -n origin` =~ /URL: (.*)$/m; + my $remote = shift || 'origin'; + return unless my ($git_url) = `git remote show -n $remote` =~ /URL: (.*)$/m; return unless $git_url =~ /github\.com/; # Not a Github repository my $http_url = $git_url; $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!; - $http_url =~ s![\w\-]+\@([^:]+):!http://$1/!; + $http_url =~ s![\w\-]+\@([^:]+):!https://$1/!; $http_url =~ s!\.git$!/tree!; - $self->repository( $git_url ); + $self->repository( + { + type => 'git', + url => $git_url, + web => $http_url, + }, + ); $self->homepage( $http_url ) unless $self->homepage(); return 1; } @@ -47,4 +54,4 @@ 'Github'; __END__ -#line 108 +#line 117 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Include.pm new/YAML-0.81/inc/Module/Install/Include.pm --- old/YAML-0.77/inc/Module/Install/Include.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Include.pm 2012-04-19 20:04:03.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Makefile.pm new/YAML-0.81/inc/Module/Install/Makefile.pm --- old/YAML-0.77/inc/Module/Install/Makefile.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Makefile.pm 2012-04-19 20:04:03.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -215,18 +215,22 @@ require ExtUtils::MakeMaker; if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { - # MakeMaker can complain about module versions that include - # an underscore, even though its own version may contain one! - # Hence the funny regexp to get rid of it. See RT #35800 - # for details. - my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; - $self->build_requires( 'ExtUtils::MakeMaker' => $v ); - $self->configure_requires( 'ExtUtils::MakeMaker' => $v ); + # This previous attempted to inherit the version of + # ExtUtils::MakeMaker in use by the module author, but this + # was found to be untenable as some authors build releases + # using future dev versions of EU:MM that nobody else has. + # Instead, #toolchain suggests we use 6.59 which is the most + # stable version on CPAN at time of writing and is, to quote + # ribasushi, "not terminally fucked, > and tested enough". + # TODO: We will now need to maintain this over time to push + # the version up as new versions are released. + $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. - $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 ); - $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 ); + $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 ); } # Generate the MakeMaker params @@ -241,7 +245,6 @@ 'all_from' if you prefer) in Makefile.PL. EOT - $DB::single = 1; if ( $self->tests ) { my @tests = split ' ', $self->tests; my %seen; @@ -412,4 +415,4 @@ __END__ -#line 541 +#line 544 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Metadata.pm new/YAML-0.81/inc/Module/Install/Metadata.pm --- old/YAML-0.77/inc/Module/Install/Metadata.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Metadata.pm 2012-04-19 20:04:03.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -151,15 +151,21 @@ sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { - my $self = shift; - unless ( @_ ) { - warn "You MUST provide an explicit true/false value to dynamic_config\n"; - return $self; + my $self = shift; + my $value = @_ ? shift : 1; + if ( $self->{values}->{dynamic_config} ) { + # Once dynamic we never change to static, for safety + return 0; } - $self->{values}->{dynamic_config} = $_[0] ? 1 : 0; + $self->{values}->{dynamic_config} = $value ? 1 : 0; return 1; } +# Convenience command +sub static_config { + shift->dynamic_config(0); +} + sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Package.pm new/YAML-0.81/inc/Module/Install/Package.pm --- old/YAML-0.77/inc/Module/Install/Package.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Package.pm 2012-04-19 20:04:02.000000000 +0200 @@ -16,7 +16,7 @@ use Module::Install::Base; use vars qw'@ISA $VERSION'; @ISA = 'Module::Install::Base'; -$VERSION = '0.29'; +$VERSION = '0.30'; #-----------------------------------------------------------------------------# # XXX BOOTBUGHACK @@ -54,6 +54,7 @@ # plugin directive: my $module_install_plugin; my $module_package_plugin; +my $module_package_dist_plugin; # XXX ARGVHACK This @argv thing is a temporary fix for an ugly bug somewhere in the # Wikitext module usage. my @argv; @@ -67,6 +68,10 @@ $module_package_plugin->mi($module_install_plugin); $module_package_plugin->version_check($VERSION); } + else { + $module_package_dist_plugin = $self->_load_dist_plugin($plugin_spec); + $module_package_dist_plugin->mi($module_install_plugin) if ref $module_package_dist_plugin; + } # NOTE - This is the point in time where the body of Makefile.PL runs... return; @@ -80,7 +85,9 @@ } else { $module_install_plugin->_initial(); + $module_package_dist_plugin->_initial() if ref $module_package_dist_plugin; $module_install_plugin->_main(); + $module_package_dist_plugin->_main() if ref $module_package_dist_plugin; } }; if ($@) { @@ -101,7 +108,10 @@ $module_package_plugin->final; $module_package_plugin->replicate_module_package; } - : $module_install_plugin->_final; + : do { + $module_install_plugin->_final; + $module_package_dist_plugin->_final() if ref $module_package_dist_plugin; + } } } @@ -123,8 +133,9 @@ # Find and load the author side plugin: sub _load_plugin { - my ($self, $spec) = @_; + my ($self, $spec, $namespace) = @_; $spec ||= ''; + $namespace ||= 'Module::Package'; my $version = ''; $Module::Package::plugin_version = 0; if ($spec =~ s/\s+(\S+)\s*//) { @@ -137,12 +148,22 @@ ($spec =~ /^:(\w+)$/) ? ('Plugin', "Plugin::$1") : ($spec =~ /^(\S*\w):(\w+)$/) ? ($1, "$1::$2") : die "$spec is invalid"; - $module = "Module::Package::$module"; - $plugin = "Module::Package::$plugin"; + $module = "${namespace}::${module}"; + $plugin = "${namespace}::${plugin}"; eval "use $module $version (); 1" or die $@; return $plugin->new(); } +# Find and load the user side plugin: +sub _load_dist_plugin { + my ($self, $spec, $namespace) = @_; + $spec ||= ''; + $namespace ||= 'Module::Package::Dist'; + my $r = eval { $self->_load_plugin($spec, $namespace); }; + return $r if ref $r; + return; +} + #-----------------------------------------------------------------------------# # These are the user side analogs to the author side plugin API calls. # Prefix with '_' to not pollute Module::Install plugin space. @@ -218,6 +239,32 @@ $self->WriteAll(@_); } +# Base package for Module::Package plugin distributed components. +package Module::Package::Dist; + +sub new { + my ($class, %args) = @_; + bless \%args, $class; +} + +sub mi { + @_ > 1 ? ($_[0]->{mi}=$_[1]) : $_[0]->{mi}; +} + +sub _initial { + my ($self) = @_; +} + +sub _main { + my ($self) = @_; +} + +sub _final { + my ($self) = @_; +} + +1; + #-----------------------------------------------------------------------------# # Take a guess at the primary .pm and .pod files for 'all_from', and friends. # Put them in global magical vars in the main:: namespace. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/Win32.pm new/YAML-0.81/inc/Module/Install/Win32.pm --- old/YAML-0.77/inc/Module/Install/Win32.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/Win32.pm 2012-04-19 20:04:03.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install/WriteAll.pm new/YAML-0.81/inc/Module/Install/WriteAll.pm --- old/YAML-0.77/inc/Module/Install/WriteAll.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install/WriteAll.pm 2012-04-19 20:04:03.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.06'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Install.pm new/YAML-0.81/inc/Module/Install.pm --- old/YAML-0.77/inc/Module/Install.pm 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/inc/Module/Install.pm 2012-04-19 20:04:02.000000000 +0200 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.01'; + $VERSION = '1.06'; # Storage for the pseudo-singleton $MAIN = undef; @@ -451,7 +451,7 @@ } sub _cmp ($$) { - _version($_[0]) <=> _version($_[1]); + _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS @@ -467,4 +467,4 @@ 1; -# Copyright 2008 - 2011 Adam Kennedy. +# Copyright 2008 - 2012 Adam Kennedy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/inc/Module/Package.pm new/YAML-0.81/inc/Module/Package.pm --- old/YAML-0.77/inc/Module/Package.pm 2011-09-29 18:28:36.000000000 +0200 +++ new/YAML-0.81/inc/Module/Package.pm 2012-04-19 20:04:04.000000000 +0200 @@ -15,7 +15,7 @@ use strict; BEGIN { - $Module::Package::VERSION = '0.29'; + $Module::Package::VERSION = '0.30'; $inc::Module::Package::VERSION ||= $Module::Package::VERSION; @inc::Module::Package::ISA = __PACKAGE__; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/Test/YAML.pm new/YAML-0.81/lib/Test/YAML.pm --- old/YAML-0.77/lib/Test/YAML.pm 2011-09-29 18:14:23.000000000 +0200 +++ new/YAML-0.81/lib/Test/YAML.pm 2012-04-18 05:09:19.000000000 +0200 @@ -3,7 +3,7 @@ use Test::Base 0.47 -Base; use lib 'lib'; -our $VERSION = '0.77'; +our $VERSION = '0.81'; our $YAML = 'YAML'; our @EXPORT = qw( @@ -254,7 +254,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Any.pm new/YAML-0.81/lib/YAML/Any.pm --- old/YAML-0.77/lib/YAML/Any.pm 2011-09-29 18:20:23.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Any.pm 2012-04-18 05:08:13.000000000 +0200 @@ -1,6 +1,6 @@ package YAML::Any; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use strict; use Exporter (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Dumper/Base.pm new/YAML-0.81/lib/YAML/Dumper/Base.pm --- old/YAML-0.77/lib/YAML/Dumper/Base.pm 2011-09-29 18:20:17.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Dumper/Base.pm 2012-04-18 05:09:14.000000000 +0200 @@ -1,7 +1,7 @@ package YAML::Dumper::Base; use YAML::Mo; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Node; @@ -129,7 +129,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Dumper.pm new/YAML-0.81/lib/YAML/Dumper.pm --- old/YAML-0.77/lib/YAML/Dumper.pm 2011-09-29 18:20:32.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Dumper.pm 2012-04-18 05:08:59.000000000 +0200 @@ -2,7 +2,7 @@ use YAML::Mo; extends 'YAML::Dumper::Base'; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Dumper::Base; use YAML::Node; @@ -579,7 +579,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Error.pm new/YAML-0.81/lib/YAML/Error.pm --- old/YAML-0.77/lib/YAML/Error.pm 2011-09-29 18:20:06.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Error.pm 2012-04-18 05:09:10.000000000 +0200 @@ -1,7 +1,7 @@ package YAML::Error; use YAML::Mo; -our $VERSION = '0.77'; +our $VERSION = '0.81'; has 'code'; has 'type' => default => sub {'Error'}; @@ -212,7 +212,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Loader/Base.pm new/YAML-0.81/lib/YAML/Loader/Base.pm --- old/YAML-0.77/lib/YAML/Loader/Base.pm 2011-09-29 18:20:38.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Loader/Base.pm 2012-04-18 05:08:39.000000000 +0200 @@ -1,7 +1,7 @@ package YAML::Loader::Base; use YAML::Mo; -our $VERSION = '0.77'; +our $VERSION = '0.81'; has load_code => default => sub {0}; has stream => default => sub {''}; @@ -54,7 +54,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Loader.pm new/YAML-0.81/lib/YAML/Loader.pm --- old/YAML-0.77/lib/YAML/Loader.pm 2011-09-29 18:19:55.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Loader.pm 2012-04-18 05:09:05.000000000 +0200 @@ -2,7 +2,7 @@ use YAML::Mo; extends 'YAML::Loader::Base'; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Loader::Base; use YAML::Types; @@ -778,7 +778,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Marshall.pm new/YAML-0.81/lib/YAML/Marshall.pm --- old/YAML-0.77/lib/YAML/Marshall.pm 2011-09-29 18:20:28.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Marshall.pm 2012-04-18 05:08:19.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package YAML::Marshall; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Node (); @@ -71,7 +71,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Mo.pm new/YAML-0.81/lib/YAML/Mo.pm --- old/YAML-0.77/lib/YAML/Mo.pm 2011-09-29 18:17:12.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Mo.pm 2012-04-19 20:00:14.000000000 +0200 @@ -1,31 +1,22 @@ -## -# name: YAML::Mo -# abstract: Mo Base Class for YAML -# author: Ingy döt Net <i...@ingy.net> -# license: perl -# copyright: 2011 +package YAML::Mo; $VERSION = '0.81'; +# use Mo qw[builder default import]; +# The following line of code was produced from the previous line by +# Mo::Inline version 0.31 +no warnings;my$M=__PACKAGE__.'::';*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.'::';shift;eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;my$m=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}};$m=$o{$_}->($m,$n,@_)for sort keys%o;*{$P.$n}=$m},%e,);*{$P.$_}=$e{$_}for keys%e;@{$P.ISA}=$M.Object};*{$M.'builder::e'}=sub{my($P,$e,$o)=@_;$o->{builder}=sub{my($m,$n,%a)=@_;my$b=$a{builder}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$b:$m->(@_)}}};*{$M.'default::e'}=sub{my($P,$e,$o)=@_;$o->{default}=sub{my($m,$n,%a)=@_;$a{default}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$a{default}->(@_):$m->(@_)}}};my$i=\&import;*{$M.import}=sub{(@_==2 and not $_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i};@f=qw[builder default import];use strict;use warnings; -package YAML::Mo; $VERSION = '0.77'; -# use Mo qw[builder default]; -no warnings;my$K=__PACKAGE__."::";*{$K.'Object::new'}=sub{my$c=shift;my$s=bless{@_},$c;my@B;do{@B=($c.'::BUILD',@B)}while($c)=@{$c.'::ISA'};exists&$_&&&$_($s)for@B;$s};*{$K.'import'}=sub{import warnings;$^H|=1538;my$P=caller."::";my%e=(extends=>sub{eval"no $_[0]()";@{$P.'ISA'}=$_[0]},has=>sub{my$n=shift;*{$P.$n}=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}}},);for(@_[1..$#_]){eval"require Mo::$_;1";%e=&{$K."${_}::e"}($P=>%e)}*{$P.$_}=$e{$_}for keys%e;@{$P.'ISA'}=$K.'Object'};*{$K.'builder::e'}=sub{my$P=shift;my%e=@_;my$o=$e{has};$e{has}=sub{my($n,%a)=@_;my$b=$a{builder};*{$P.$n}=$b?sub{$#_?$_[0]{$n}=$_[1]:!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$b:$_[0]{$n}}:$o->(@_)};%e};*{$K.'default::e'}=sub{my$P=shift;my%e=@_;my$o=$e{has};$e{has}=sub{my($n,%a)=@_;my$d=$a{default};*{$P.$n}=$d?sub{$#_?$_[0]{$n}=$_[1]:!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$d:$_[0]{$n}}:$o->(@_)};%e};use strict;use warnings; -no strict 'refs'; no warnings 'redefine'; - -my $import = \&import; -*import = sub { - push @_, qw[builder default]; - goto &$import; -}; +our $DumperModule = 'Data::Dumper'; my ($_new_error, $_info, $_scalar_info); -*{$K.'Object::die'} = sub { +no strict 'refs'; +*{$M.'Object::die'} = sub { my $self = shift; my $error = $self->$_new_error(@_); $error->type('Error'); Carp::croak($error->format_message); }; -*{$K.'Object::warn'} = sub { +*{$M.'Object::warn'} = sub { my $self = shift; return unless $^W; my $error = $self->$_new_error(@_); @@ -38,7 +29,7 @@ # # Can't handle: # * blessed regexp -*{$K.'Object::node_info'} = sub { +*{$M.'Object::node_info'} = sub { my $self = shift; my $stringify = $_[1] || 0; my ($class, $type, $id) = diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Mo.pod new/YAML-0.81/lib/YAML/Mo.pod --- old/YAML-0.77/lib/YAML/Mo.pod 2011-09-29 18:28:35.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Mo.pod 1970-01-01 01:00:00.000000000 +0100 @@ -1,20 +0,0 @@ -=encoding utf8 - -=head1 NAME - -YAML::Mo - Mo Base Class for YAML - -=head1 AUTHOR - -Ingy döt Net <i...@ingy.net> - -=head1 COPYRIGHT AND LICENSE - -Copyright (c) 2011. Ingy döt Net. - -This program is free software; you can redistribute it and/or modify it -under the same terms as Perl itself. - -See http://www.perl.com/perl/misc/Artistic.html - -=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Node.pm new/YAML-0.81/lib/YAML/Node.pm --- old/YAML-0.77/lib/YAML/Node.pm 2011-09-29 18:17:38.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Node.pm 2012-04-18 05:08:46.000000000 +0200 @@ -2,13 +2,13 @@ use warnings; package YAML::Node; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Tag; require YAML::Mo; use Exporter; -our @ISA = 'Exporter'; +our @ISA = qw(Exporter YAML::Mo::Object); our @EXPORT = qw(ynode); sub ynode { @@ -294,7 +294,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. Copyright (c) 2002. Brian Ingerson. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Tag.pm new/YAML-0.81/lib/YAML/Tag.pm --- old/YAML-0.77/lib/YAML/Tag.pm 2011-09-29 18:20:42.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Tag.pm 2012-04-18 05:08:04.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package YAML::Tag; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use overload '""' => sub { ${$_[0]} }; @@ -41,7 +41,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML/Types.pm new/YAML-0.81/lib/YAML/Types.pm --- old/YAML-0.77/lib/YAML/Types.pm 2011-09-29 18:20:12.000000000 +0200 +++ new/YAML-0.81/lib/YAML/Types.pm 2012-04-18 05:08:54.000000000 +0200 @@ -1,7 +1,7 @@ package YAML::Types; use YAML::Mo; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use YAML::Node; @@ -252,7 +252,7 @@ =head1 COPYRIGHT -Copyright (c) 2006. Ingy döt Net. All rights reserved. +Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/lib/YAML.pm new/YAML-0.81/lib/YAML.pm --- old/YAML-0.77/lib/YAML.pm 2011-09-29 18:19:22.000000000 +0200 +++ new/YAML-0.81/lib/YAML.pm 2012-04-18 05:07:30.000000000 +0200 @@ -2,7 +2,7 @@ package YAML; use YAML::Mo; -our $VERSION = '0.77'; +our $VERSION = '0.81'; use Exporter; push @YAML::ISA, 'Exporter'; @@ -662,7 +662,7 @@ =item plain scalar -A plain sclar is unquoted. All plain scalars are automatic candidates +A plain scalar is unquoted. All plain scalars are automatic candidates for "implicit tagging". This means that their tag may be determined automatically by examination. The typical uses for this are plain alpha strings, integers, real numbers, dates, times and currency. @@ -787,7 +787,7 @@ =head1 SEE ALSO -See YAML::Syck. Fast! +See YAML::XS. Fast! =head1 AUTHOR @@ -796,12 +796,12 @@ is resonsible for YAML.pm. The YAML serialization language is the result of years of collaboration -between Oren Ben-Kiki, Clark Evans and Ingy dE<ouml>t Net. Several others +between Oren Ben-Kiki, Clark Evans and Ingy döt Net. Several others have added help along the way. =head1 COPYRIGHT -Copyright (c) 2005, 2006, 2008. Ingy dE<ouml>t Net. +Copyright (c) 2005, 2006, 2008, 2011-2012. Ingy döt Net. Copyright (c) 2001, 2002, 2005. Brian Ingerson. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/t/dump-code.t new/YAML-0.81/t/dump-code.t --- old/YAML-0.77/t/dump-code.t 2011-03-31 18:44:53.000000000 +0200 +++ new/YAML-0.81/t/dump-code.t 2012-04-18 05:06:32.000000000 +0200 @@ -1,4 +1,16 @@ use t::TestYAML tests => 7; +use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71 + +use B::Deparse; +if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; }) + =~ 'refs') { + local $/; + (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g if $] < 5.015; + if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702] + $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g; + } + open DATA, '<', \$data; +} no_diff; run_roundtrip_nyn('dumper'); @@ -15,7 +27,7 @@ --- !!perl/code | { use warnings; - use strict 'refs'; + use strict; 'Something at least 30 chars'; } @@ -31,7 +43,7 @@ - &1 !!perl/code | { use warnings; - use strict 'refs'; + use strict; 'Something at least 30 chars'; } - *1 @@ -56,6 +68,6 @@ --- !!perl/code:Foo::Bar | { use warnings; - use strict 'refs'; + use strict; 'Something at least 30 chars'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-0.77/t/dump-perl-types.t new/YAML-0.81/t/dump-perl-types.t --- old/YAML-0.77/t/dump-perl-types.t 2011-04-19 14:02:48.000000000 +0200 +++ new/YAML-0.81/t/dump-perl-types.t 2012-04-18 05:06:32.000000000 +0200 @@ -2,6 +2,18 @@ filters { perl => ['eval', 'yaml_dump'] }; +use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71 +use B::Deparse; +if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; }) + =~ 'refs') { + local $/; + (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g; + if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702] + $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g; + } + open DATA, '<', \$data; +} + no_diff; run_is perl => 'yaml'; @@ -36,7 +48,7 @@ --- !!perl/code | { use warnings; - use strict 'refs'; + use strict; print "Hello, world\n"; } @@ -82,7 +94,7 @@ CODE: !!perl/code | { use warnings; - use strict 'refs'; + use strict; print "Hello, world\n"; } -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org
