Hello community, here is the log from the commit of package perl-File-pushd for openSUSE:Factory checked in at 2013-06-06 13:13:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-pushd (Old) and /work/SRC/openSUSE:Factory/.perl-File-pushd.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-pushd" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-pushd/perl-File-pushd.changes 2012-02-16 12:25:32.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-File-pushd.new/perl-File-pushd.changes 2013-06-06 13:13:35.000000000 +0200 @@ -1,0 +2,22 @@ +Tue Jun 4 10:51:12 UTC 2013 - [email protected] + +- updated to 1.005 + [BUG FIXES] + + - Fix failing test for changing to non-existent directory on some + older Perls for some platforms + + - Object destruction won't clobber $@ + + [SUPPORT] + + - Changed issue tracker to Github + + - Dropped support for Perl 5.005 + + [BUG FIXES] + + - Fix test failures on Win32 when using perl.exe that must link to gcc + DLL [rt.cpan.org #81476] + +------------------------------------------------------------------- Old: ---- File-pushd-1.002.tar.gz New: ---- File-pushd-1.005.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-pushd.spec ++++++ --- /var/tmp/diff_new_pack.s2U32w/_old 2013-06-06 13:13:35.000000000 +0200 +++ /var/tmp/diff_new_pack.s2U32w/_new 2013-06-06 13:13:35.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-File-pushd # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 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 @@ -17,7 +17,7 @@ Name: perl-File-pushd -Version: 1.002 +Version: 1.005 Release: 0 %define cpan_name File-pushd Summary: change directory temporarily for a limited scope @@ -64,6 +64,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes examples LICENSE README README.PATCHING Todo +%doc Changes CONTRIBUTING examples LICENSE perlcritic.rc README Todo %changelog ++++++ File-pushd-1.002.tar.gz -> File-pushd-1.005.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/CONTRIBUTING new/File-pushd-1.005/CONTRIBUTING --- old/File-pushd-1.002/CONTRIBUTING 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/CONTRIBUTING 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,42 @@ +README.PATCHING + +Thank you for considering contributing to this distribution. This file +contains instructions that will help you work with the source code. + +The distribution is managed with Dist::Zilla. This means than many of the +usual files you might expect are not in the repository, but are generated +at release time (e.g. Makefile.PL). + +However, you can run tests directly using the 'prove' tool: + + $ prove -l + $ prove -lv t/some_test_file.t + +For most distributions, 'prove' is entirely sufficent for you to test any +patches you have. + +Likewise, much of the documentation Pod is generated at release time. +Depending on the distribution, some documentation may be written in a Pod +dialect called WikiDoc. (See Pod::WikiDoc on CPAN.) If you would like to +submit a documentation edit, please limit yourself to the documentation you +see. + +If you see typos or documentation issues in the generated docs, please +email or open a bug ticket instead of patching. + +Dist::Zilla is a very powerful authoring tool, but requires a number of +author-specific plugins. If you would like to use it for contributing, +install it from CPAN, then run one of the following commands, depending on +your CPAN client: + + $ cpan `dzil authordeps` + $ dzil authordeps | cpanm + +Once installed, here are some dzil commands you might try: + + $ dzil build + $ dzil test + $ dzil xtest + +You can learn more about Dist::Zilla at http://dzil.org/ + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/Changes new/File-pushd-1.005/Changes --- old/File-pushd-1.002/Changes 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/Changes 2013-03-22 14:58:24.000000000 +0100 @@ -1,5 +1,31 @@ Revision history for Perl module File::pushd +1.005 2013-03-22 09:58:20 America/New_York + + [BUG FIXES] + + - Fix failing test for changing to non-existent directory on some + older Perls for some platforms + +1.004 2013-03-05 17:59:08 America/New_York + + [BUG FIXES] + + - Object destruction won't clobber $@ + + [SUPPORT] + + - Changed issue tracker to Github + + - Dropped support for Perl 5.005 + +1.003 2012-11-27 17:49:03 America/New_York + + [BUG FIXES] + + - Fix test failures on Win32 when using perl.exe that must link to gcc + DLL [rt.cpan.org #81476] + 1.002 2011-12-07 11:40:26 EST5EDT [BUG FIXES] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/LICENSE new/File-pushd-1.005/LICENSE --- old/File-pushd-1.002/LICENSE 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/LICENSE 2013-03-22 14:58:24.000000000 +0100 @@ -1,4 +1,4 @@ -This software is Copyright (c) 2011 by David A Golden. +This software is Copyright (c) 2013 by David A Golden. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/MANIFEST new/File-pushd-1.005/MANIFEST --- old/File-pushd-1.002/MANIFEST 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/MANIFEST 2013-03-22 14:58:24.000000000 +0100 @@ -1,3 +1,4 @@ +CONTRIBUTING Changes LICENSE MANIFEST @@ -5,15 +6,19 @@ META.yml Makefile.PL README -README.PATCHING Todo dist.ini examples/example.pl lib/File/pushd.pm +perlcritic.rc t/00-compile.t +t/00-report-prereqs.t t/File_pushd.t +t/exception.t xt/author/critic.t +xt/author/pod-spell.t xt/release/distmeta.t +xt/release/minimum-version.t xt/release/pod-coverage.t xt/release/pod-syntax.t xt/release/portability.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/META.json new/File-pushd-1.005/META.json --- old/File-pushd-1.002/META.json 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/META.json 2013-03-22 14:58:24.000000000 +0100 @@ -1,10 +1,10 @@ { "abstract" : "change directory temporarily for a limited scope", "author" : [ - "David A Golden <[email protected]>" + "David Golden <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112580", + "generated_by" : "Dist::Zilla version 4.300031, CPAN::Meta::Converter version 2.120921", "license" : [ "apache_2_0" ], @@ -30,49 +30,60 @@ "ExtUtils::MakeMaker" : "6.30" } }, + "develop" : { + "requires" : { + "Pod::Coverage::TrustPod" : "0", + "Test::CPAN::Meta" : "0", + "Test::Pod" : "1.41", + "Test::Pod::Coverage" : "1.08" + } + }, "runtime" : { "requires" : { - "Carp" : 0, - "Cwd" : 0, - "Exporter" : 0, - "File::Path" : 0, - "File::Spec" : 0, - "File::Temp" : 0, - "overload" : 0, - "perl" : "5.005", - "strict" : 0, - "vars" : 0, - "warnings" : 0 + "Carp" : "0", + "Cwd" : "0", + "Exporter" : "0", + "File::Path" : "0", + "File::Spec" : "0", + "File::Temp" : "0", + "overload" : "0", + "perl" : "5.006", + "strict" : "0", + "warnings" : "0" } }, "test" : { "requires" : { - "File::Basename" : 0, - "File::Find" : 0, - "File::Spec::Functions" : 0, - "Test::More" : 0 + "ExtUtils::MakeMaker" : "0", + "File::Basename" : "0", + "File::Find" : "0", + "File::Spec::Functions" : "0", + "List::Util" : "0", + "Test::More" : "0" } } }, "provides" : { "File::pushd" : { "file" : "lib/File/pushd.pm", - "version" : "1.002" + "version" : "1.005" } }, "release_status" : "stable", "resources" : { "bugtracker" : { - "mailto" : "bug-file-pushd at rt.cpan.org", - "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=File-pushd"; + "web" : "https://github.com/dagolden/file-pushd/issues"; }, - "homepage" : "https://github.com/dagolden/file-pushd";, + "homepage" : "https://metacpan.org/release/File-pushd";, "repository" : { "type" : "git", - "url" : "https://github.com/dagolden/file-pushd.git";, + "url" : "git://github.com/dagolden/file-pushd.git", "web" : "https://github.com/dagolden/file-pushd"; } }, - "version" : "1.002" + "version" : "1.005", + "x_contributors" : [ + "Diab Jerius <[email protected]>" + ] } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/META.yml new/File-pushd-1.005/META.yml --- old/File-pushd-1.002/META.yml 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/META.yml 2013-03-22 14:58:24.000000000 +0100 @@ -1,16 +1,18 @@ --- abstract: 'change directory temporarily for a limited scope' author: - - 'David A Golden <[email protected]>' + - 'David Golden <[email protected]>' build_requires: + ExtUtils::MakeMaker: 0 File::Basename: 0 File::Find: 0 File::Spec::Functions: 0 + List::Util: 0 Test::More: 0 configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112580' +generated_by: 'Dist::Zilla version 4.300031, CPAN::Meta::Converter version 2.120921' license: apache meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -27,7 +29,7 @@ provides: File::pushd: file: lib/File/pushd.pm - version: 1.002 + version: 1.005 requires: Carp: 0 Cwd: 0 @@ -36,12 +38,13 @@ File::Spec: 0 File::Temp: 0 overload: 0 - perl: 5.005 + perl: 5.006 strict: 0 - vars: 0 warnings: 0 resources: - bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=File-pushd - homepage: https://github.com/dagolden/file-pushd - repository: https://github.com/dagolden/file-pushd.git -version: 1.002 + bugtracker: https://github.com/dagolden/file-pushd/issues + homepage: https://metacpan.org/release/File-pushd + repository: git://github.com/dagolden/file-pushd.git +version: 1.005 +x_contributors: + - 'Diab Jerius <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/Makefile.PL new/File-pushd-1.005/Makefile.PL --- old/File-pushd-1.002/Makefile.PL 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/Makefile.PL 2013-03-22 14:58:24.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; -use 5.005; +use 5.006; use ExtUtils::MakeMaker 6.30; @@ -10,11 +10,13 @@ my %WriteMakefileArgs = ( "ABSTRACT" => "change directory temporarily for a limited scope", - "AUTHOR" => "David A Golden <dagolden\@cpan.org>", + "AUTHOR" => "David Golden <dagolden\@cpan.org>", "BUILD_REQUIRES" => { + "ExtUtils::MakeMaker" => 0, "File::Basename" => 0, "File::Find" => 0, "File::Spec::Functions" => 0, + "List::Util" => 0, "Test::More" => 0 }, "CONFIGURE_REQUIRES" => { @@ -33,10 +35,9 @@ "File::Temp" => 0, "overload" => 0, "strict" => 0, - "vars" => 0, "warnings" => 0 }, - "VERSION" => "1.002", + "VERSION" => "1.005", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/README new/File-pushd-1.005/README --- old/File-pushd-1.002/README 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/README 2013-03-22 14:58:24.000000000 +0100 @@ -2,7 +2,7 @@ File::pushd - change directory temporarily for a limited scope VERSION - version 1.002 + version 1.005 SYNOPSIS use File::pushd; @@ -112,8 +112,8 @@ SUPPORT Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker at - <http://rt.cpan.org/Public/Dist/Display.html?Name=File-pushd>. You will - be notified automatically of any progress on your issue. + <https://github.com/dagolden/file-pushd/issues>. You will be notified + automatically of any progress on your issue. Source Code This is open source software. The code repository is available for @@ -121,13 +121,16 @@ <https://github.com/dagolden/file-pushd> - git clone https://github.com/dagolden/file-pushd.git + git clone git://github.com/dagolden/file-pushd.git AUTHOR - David A Golden <[email protected]> + David Golden <[email protected]> + +CONTRIBUTOR + Diab Jerius <[email protected]> COPYRIGHT AND LICENSE - This software is Copyright (c) 2011 by David A Golden. + This software is Copyright (c) 2013 by David A Golden. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/README.PATCHING new/File-pushd-1.005/README.PATCHING --- old/File-pushd-1.002/README.PATCHING 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/README.PATCHING 1970-01-01 01:00:00.000000000 +0100 @@ -1,42 +0,0 @@ -README.PATCHING - -Thank you for considering contributing to this distribution. This file -contains instructions that will help you work with the source code. - -The distribution is managed with Dist::Zilla. This means than many of the -usual files you might expect are not in the repository, but are generated -at release time (e.g. Makefile.PL). - -However, you can run tests directly using the 'prove' tool: - - $ prove -l - $ prove -lv t/some_test_file.t - -For most distributions, 'prove' is entirely sufficent for you to test any -patches you have. - -Likewise, much of the documentation Pod is generated at release time. -Depending on the distribution, some documentation may be written in a Pod -dialect called WikiDoc. (See Pod::WikiDoc on CPAN.) If you would like to -submit a documentation edit, please limit yourself to the documentation you -see. - -If you see typos or documentation issues in the generated docs, please -email or open a bug ticket instead of patching. - -Dist::Zilla is a very powerful authoring tool, but requires a number of -author-specific plugins. If you would like to use it for contributing, -install it from CPAN, then run one of the following commands, depending on -your CPAN client: - - $ cpan `dzil authordeps` - $ dzil authordeps | cpanm - -Once installed, here are some dzil commands you might try: - - $ dzil build - $ dzil test - $ dzil xtest - -You can learn more about Dist::Zilla at http://dzil.org/ - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/dist.ini new/File-pushd-1.005/dist.ini --- old/File-pushd-1.002/dist.ini 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/dist.ini 2013-03-22 14:58:24.000000000 +0100 @@ -1,10 +1,13 @@ name = File-pushd -author = David A Golden <[email protected]> +author = David Golden <[email protected]> license = Apache_2_0 copyright_holder = David A Golden -[@Filter] --bundle = @DAGOLDEN --remove = MinimumPerl - -[Test::Perl::Critic] +[@DAGOLDEN] +AutoMetaResources.bugtracker.rt = 0 +AutoMetaResources.bugtracker.github = user:dagolden +stopwords = Diab +stopwords = Jerius +stopwords = destructor +stopwords = pathname +stopwords = tempd diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/lib/File/pushd.pm new/File-pushd-1.005/lib/File/pushd.pm --- old/File-pushd-1.002/lib/File/pushd.pm 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/lib/File/pushd.pm 2013-03-22 14:58:24.000000000 +0100 @@ -1,17 +1,15 @@ -use 5.005; use strict; -BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } } +use warnings; package File::pushd; # ABSTRACT: change directory temporarily for a limited scope -our $VERSION = '1.002'; # VERSION +our $VERSION = '1.005'; # VERSION -use vars qw/@EXPORT @ISA/; -@EXPORT = qw( pushd tempd ); -@ISA = qw( Exporter ); +our @EXPORT = qw( pushd tempd ); +our @ISA = qw( Exporter ); use Exporter; use Carp; -use Cwd qw( cwd abs_path ); +use Cwd qw( getcwd abs_path ); use File::Path qw( rmtree ); use File::Temp qw(); use File::Spec; @@ -28,7 +26,10 @@ my ($target_dir, $options) = @_; $options->{untaint_pattern} ||= qr{^([-+@\w./]+)$}; - my $tainted_orig = cwd; + $target_dir = "." unless defined $target_dir; + croak "Can't locate directory $target_dir" unless -d $target_dir; + + my $tainted_orig = getcwd; my $orig; if ( $tainted_orig =~ $options->{untaint_pattern} ) { $orig = $1; @@ -39,7 +40,7 @@ my $tainted_dest; eval { $tainted_dest = $target_dir ? abs_path( $target_dir ) : $orig }; - croak "Can't locate directory $target_dir: $@" if $@; + croak "Can't locate absolute path for $target_dir: $@" if $@; my $dest; if ( $tainted_dest =~ $options->{untaint_pattern} ) { @@ -101,14 +102,19 @@ chdir $orig if $orig; # should always be so, but just in case... if ( $self->{_tempd} && !$self->{_preserve} ) { - eval { rmtree( $self->{_pushd} ) }; - carp $@ if $@; + # don't destroy existing $@ if there is no error. + my $err = do { + local $@; + eval { rmtree( $self->{_pushd} ) }; + $@; + }; + carp $err if $err; } } 1; - +__END__ =pod @@ -118,7 +124,7 @@ =head1 VERSION -version 1.002 +version 1.005 =head1 SYNOPSIS @@ -235,14 +241,14 @@ =back -=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders +=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan =head1 SUPPORT =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker -at L<http://rt.cpan.org/Public/Dist/Display.html?Name=File-pushd>. +at L<https://github.com/dagolden/file-pushd/issues>. You will be notified automatically of any progress on your issue. =head2 Source Code @@ -252,23 +258,22 @@ L<https://github.com/dagolden/file-pushd> - git clone https://github.com/dagolden/file-pushd.git + git clone git://github.com/dagolden/file-pushd.git =head1 AUTHOR -David A Golden <[email protected]> +David Golden <[email protected]> + +=head1 CONTRIBUTOR + +Diab Jerius <[email protected]> =head1 COPYRIGHT AND LICENSE -This software is Copyright (c) 2011 by David A Golden. +This software is Copyright (c) 2013 by David A Golden. This is free software, licensed under: The Apache License, Version 2.0, January 2004 =cut - - -__END__ - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/perlcritic.rc new/File-pushd-1.005/perlcritic.rc --- old/File-pushd-1.002/perlcritic.rc 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/perlcritic.rc 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,23 @@ +severity = 5 +verbose = 8 + +[Variables::ProhibitPunctuationVars] +allow = $@ $! + +[TestingAndDebugging::ProhibitNoStrict] +allow = refs + +# Turn these off +[-BuiltinFunctions::ProhibitStringyEval] +[-ControlStructures::ProhibitPostfixControls] +[-ControlStructures::ProhibitUnlessBlocks] +[-Documentation::RequirePodSections] +[-InputOutput::ProhibitInteractiveTest] +[-References::ProhibitDoubleSigils] +[-RegularExpressions::RequireExtendedFormatting] +[-InputOutput::ProhibitTwoArgOpen] +[-Modules::ProhibitEvilModules] + +# Turn this on +[Lax::ProhibitStringyEval::ExceptForRequire] + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/t/00-compile.t new/File-pushd-1.005/t/00-compile.t --- old/File-pushd-1.002/t/00-compile.t 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/t/00-compile.t 2013-03-22 14:58:24.000000000 +0100 @@ -24,19 +24,33 @@ 'lib', ); -my @scripts; -if ( -d 'bin' ) { +sub _find_scripts { + my $dir = shift @_; + + my @found_scripts = (); find( sub { return unless -f; my $found = $File::Find::name; # nothing to skip - push @scripts, $found; + open my $FH, '<', $_ or do { + note( "Unable to open $found in ( $! ), skipping" ); + return; + }; + my $shebang = <$FH>; + return unless $shebang =~ /^#!.*?\bperl\b\s*$/; + push @found_scripts, $found; }, - 'bin', + $dir, ); + + return @found_scripts; } +my @scripts; +do { push @scripts, _find_scripts($_) if -d $_ } + for qw{ bin script scripts }; + my $plan = scalar(@modules) + scalar(@scripts); $plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); @@ -56,4 +70,5 @@ script_compiles( $file, "$script script compiles" ); } } + } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/t/00-report-prereqs.t new/File-pushd-1.005/t/00-report-prereqs.t --- old/File-pushd-1.002/t/00-report-prereqs.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/t/00-report-prereqs.t 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,71 @@ +#!perl + +use strict; +use warnings; + +use Test::More tests => 1; + +use ExtUtils::MakeMaker; +use File::Spec::Functions; +use List::Util qw/max/; + +my @modules = qw( + Carp + Cwd + Exporter + ExtUtils::MakeMaker + File::Basename + File::Find + File::Path + File::Spec + File::Spec::Functions + File::Temp + List::Util + Test::More + overload + perl + strict + warnings +); + +# replace modules with dynamic results from MYMETA.json if we can +# (hide CPAN::Meta from prereq scanner) +my $cpan_meta = "CPAN::Meta"; +if ( -f "MYMETA.json" && eval "require $cpan_meta" ) { ## no critic + if ( my $meta = eval { CPAN::Meta->load_file("MYMETA.json") } ) { + my $prereqs = $meta->prereqs; + delete $prereqs->{develop}; + my %uniq = map {$_ => 1} map { keys %$_ } map { values %$_ } values %$prereqs; + $uniq{$_} = 1 for @modules; # don't lose any static ones + @modules = sort keys %uniq; + } +} + +my @reports = [qw/Version Module/]; + +for my $mod ( @modules ) { + next if $mod eq 'perl'; + my $file = $mod; + $file =~ s{::}{/}g; + $file .= ".pm"; + my ($prefix) = grep { -e catfile($_, $file) } @INC; + if ( $prefix ) { + my $ver = MM->parse_version( catfile($prefix, $file) ); + $ver = "undef" unless defined $ver; # Newer MM should do this anyway + push @reports, [$ver, $mod]; + } + else { + push @reports, ["missing", $mod]; + } +} + +if ( @reports ) { + my $vl = max map { length $_->[0] } @reports; + my $ml = max map { length $_->[1] } @reports; + splice @reports, 1, 0, ["-" x $vl, "-" x $ml]; + diag "Prerequisite Report:\n", map {sprintf(" %*s %*s\n",$vl,$_->[0],-$ml,$_->[1])} @reports; +} + +pass; + +# vim: ts=2 sts=2 sw=2 et: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/t/File_pushd.t new/File-pushd-1.005/t/File_pushd.t --- old/File-pushd-1.002/t/File_pushd.t 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/t/File_pushd.t 2013-03-22 14:58:24.000000000 +0100 @@ -192,14 +192,15 @@ $program_file->close; -{ - delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; - $^X =~ m{(.*)[\\/]perl.*$}; - $ENV{PATH} = $1; # for taint mode - $ENV{PATH} = "$1:/usr/bin" if $^O eq 'cygwin'; - $temp_dir = `$^X $program_file`; +# for when I manually test with "perl -t", must untaint things +for my $key (qw(IFS CDPATH ENV BASH_ENV PATH)) { + next unless defined $ENV{$key}; + $ENV{$key} =~ /^(.*)$/; + $ENV{$key} = $1; } +$temp_dir = `$^X $program_file`; + chomp($temp_dir); $temp_dir =~ /(.*)/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/t/exception.t new/File-pushd-1.005/t/exception.t --- old/File-pushd-1.002/t/exception.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/t/exception.t 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,24 @@ +use strict; +use warnings; +use Test::More; +use File::pushd; + +eval { + my $dir = tempd; + die( "error\n" ); +}; + +my $err = $@; +is( $err, "error\n", "destroy did not clobber \$@\n" ); + +done_testing; +# +# This file is part of File-pushd +# +# This software is Copyright (c) 2013 by David A Golden. +# +# This is free software, licensed under: +# +# The Apache License, Version 2.0, January 2004 +# +# vim: ts=4 sts=4 sw=4 et: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/xt/author/pod-spell.t new/File-pushd-1.005/xt/author/pod-spell.t --- old/File-pushd-1.002/xt/author/pod-spell.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/xt/author/pod-spell.t 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,22 @@ +use strict; +use warnings; +use Test::More; + +# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.004003 +eval "use Test::Spelling 0.12; use Pod::Wordlist::hanekomu; 1" or die $@; + + +add_stopwords(<DATA>); +all_pod_files_spelling_ok( qw( bin lib ) ); +__DATA__ +Diab +Jerius +destructor +pathname +tempd +David +Golden +dagolden +lib +File +pushd diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/xt/release/minimum-version.t new/File-pushd-1.005/xt/release/minimum-version.t --- old/File-pushd-1.002/xt/release/minimum-version.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-pushd-1.005/xt/release/minimum-version.t 2013-03-22 14:58:24.000000000 +0100 @@ -0,0 +1,8 @@ +#!perl + +use Test::More; + +eval "use Test::MinimumVersion"; +plan skip_all => "Test::MinimumVersion required for testing minimum versions" + if $@; +all_minimum_version_ok( qq{5.010} ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/xt/release/portability.t new/File-pushd-1.005/xt/release/portability.t --- old/File-pushd-1.002/xt/release/portability.t 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/xt/release/portability.t 2013-03-22 14:58:24.000000000 +0100 @@ -2,7 +2,8 @@ use Test::More; -eval "use Test::Portability::Files"; -plan skip_all => "Test::Portability::Files required for testing portability" - if $@; +eval 'use Test::Portability::Files'; +plan skip_all => 'Test::Portability::Files required for testing portability' + if $@; +options(test_one_dot => 0); run_tests(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-pushd-1.002/xt/release/test-version.t new/File-pushd-1.005/xt/release/test-version.t --- old/File-pushd-1.002/xt/release/test-version.t 2011-12-07 17:40:29.000000000 +0100 +++ new/File-pushd-1.005/xt/release/test-version.t 2013-03-22 14:58:24.000000000 +0100 @@ -1,12 +1,22 @@ -#!/usr/bin/perl -use 5.006; use strict; use warnings; use Test::More; -eval "use Test::Version 0.04"; -plan skip_all => "Test::Version 0.04 required for testing versions" - if $@; +# generated by Dist::Zilla::Plugin::Test::Version 0.002004 +BEGIN { eval "use Test::Version; 1;" or die $@; } -version_all_ok(); +my @imports = ( 'version_all_ok' ); + +my $params = { + is_strict => 0, + has_version => 1, +}; + +push @imports, $params + if version->parse( $Test::Version::VERSION ) >= version->parse('1.002'); + + +Test::Version->import(@imports); + +version_all_ok; done_testing; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
