Hello community, here is the log from the commit of package perl-Test-Script for openSUSE:Factory checked in at 2017-05-16 14:33:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Script (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Script.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Script" Tue May 16 14:33:44 2017 rev:24 rq:489031 version:1.18 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Script/perl-Test-Script.changes 2017-03-12 20:01:32.306655673 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Script.new/perl-Test-Script.changes 2017-05-16 14:33:53.086139365 +0200 @@ -1,0 +2,15 @@ +Fri Apr 14 06:41:05 UTC 2017 - [email protected] + +- updated to 1.18 + see /usr/share/doc/packages/perl-Test-Script/Changes + + 1.18 2017-04-12 07:01:14 -0400 + - Production release identical to 1.17_02 release. + + 1.17_02 2017-04-10 08:39:46 -0400 + - Use three argument open + + 1.17_01 2017-04-10 06:51:38 -0400 + - Handle scripts with -T taint mode (gh#13) + +------------------------------------------------------------------- Old: ---- Test-Script-1.16.tar.gz New: ---- Test-Script-1.18.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Script.spec ++++++ --- /var/tmp/diff_new_pack.0Jebkr/_old 2017-05-16 14:33:53.806038227 +0200 +++ /var/tmp/diff_new_pack.0Jebkr/_new 2017-05-16 14:33:53.810037665 +0200 @@ -17,7 +17,7 @@ Name: perl-Test-Script -Version: 1.16 +Version: 1.18 Release: 0 %define cpan_name Test-Script Summary: Basic cross-platform tests for scripts @@ -75,7 +75,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc author.yml Changes README +%doc author.yml Changes README t2 %license LICENSE %changelog ++++++ Test-Script-1.16.tar.gz -> Test-Script-1.18.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/Changes new/Test-Script-1.18/Changes --- old/Test-Script-1.16/Changes 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/Changes 2017-04-12 13:01:18.000000000 +0200 @@ -1,5 +1,14 @@ Revision history for Perl extension Test-Script +1.18 2017-04-12 07:01:14 -0400 + - Production release identical to 1.17_02 release. + +1.17_02 2017-04-10 08:39:46 -0400 + - Use three argument open + +1.17_01 2017-04-10 06:51:38 -0400 + - Handle scripts with -T taint mode (gh#13) + 1.16 2017-03-04 12:16:10 -0500 - Stricter useage of plans. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/MANIFEST new/Test-Script-1.18/MANIFEST --- old/Test-Script-1.16/MANIFEST 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/MANIFEST 2017-04-12 13:01:18.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.008. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.009. Changes INSTALL LICENSE @@ -22,11 +22,13 @@ t/07_signal.t t/08_trap_exit_or_signal.t t/09_capture_output.t +t/10_taint.t t/bin/bad.pl t/bin/four.pl t/bin/good.pl t/bin/print.pl t/bin/signal.pl +t/bin/taint.pl t2/bug_gh9.t t2/test_script__exports.t t2/test_script__import.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/META.json new/Test-Script-1.18/META.json --- old/Test-Script-1.16/META.json 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/META.json 2017-04-12 13:01:18.000000000 +0200 @@ -5,7 +5,7 @@ "Adam Kennedy" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 6.008, CPAN::Meta::Converter version 2.150010", + "generated_by" : "Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -67,7 +67,7 @@ "web" : "https://github.com/plicease/Test-Script"; } }, - "version" : "1.16", - "x_serialization_backend" : "Cpanel::JSON::XS version 3.0227" + "version" : "1.18", + "x_serialization_backend" : "Cpanel::JSON::XS version 3.023" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/META.yml new/Test-Script-1.18/META.yml --- old/Test-Script-1.16/META.yml 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/META.yml 2017-04-12 13:01:18.000000000 +0200 @@ -13,7 +13,7 @@ ExtUtils::MakeMaker: '0' perl: '5.006' dynamic_config: 0 -generated_by: 'Dist::Zilla version 6.008, CPAN::Meta::Converter version 2.150010' +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 @@ -30,5 +30,5 @@ bugtracker: https://github.com/plicease/Test-Script/issues homepage: https://metacpan.org/pod/Test::Script repository: git://github.com/plicease/Test-Script.git -version: '1.16' +version: '1.18' x_serialization_backend: 'YAML::Tiny version 1.70' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/Makefile.PL new/Test-Script-1.18/Makefile.PL --- old/Test-Script-1.16/Makefile.PL 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/Makefile.PL 2017-04-12 13:01:18.000000000 +0200 @@ -10,7 +10,7 @@ exit; } } -# This file was automatically generated by Dist::Zilla::Plugin::Author::Plicease::MakeMaker v2.11. +# This file was automatically generated by Dist::Zilla::Plugin::Author::Plicease::MakeMaker v2.12. use strict; use warnings; @@ -44,7 +44,7 @@ "Test::More" => "0.96", "Test::Tester" => 0 }, - "VERSION" => "1.16", + "VERSION" => "1.18", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/README new/Test-Script-1.18/README --- old/Test-Script-1.16/README 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/README 2017-04-12 13:01:18.000000000 +0200 @@ -4,7 +4,7 @@ VERSION - version 1.16 + version 1.18 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/dist.ini new/Test-Script-1.18/dist.ini --- old/Test-Script-1.16/dist.ini 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/dist.ini 2017-04-12 13:01:18.000000000 +0200 @@ -4,10 +4,10 @@ license = Perl_5 copyright_holder = Adam Kennedy copyright_year = 2006 -version = 1.16 +version = 1.18 [@Author::Plicease] -:version = 1.94 +:version = 2.12 travis_status = 1 release_tests = 1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/lib/Test/Script.pm new/Test-Script-1.18/lib/Test/Script.pm --- old/Test-Script-1.16/lib/Test/Script.pm 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/lib/Test/Script.pm 2017-04-12 13:01:18.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Script; # ABSTRACT: Basic cross-platform tests for scripts -our $VERSION = '1.16'; # VERSION +our $VERSION = '1.18'; # VERSION use 5.006; @@ -93,9 +93,10 @@ my $args = _script(shift); my $unix = shift @$args; my $path = path( $unix ); + my $pargs = _perl_args($path); my @libs = map { "-I$_" } grep {!ref($_)} @INC; my $dir = _preload_module(); - my $cmd = [ perl, "-I$dir", '-M__TEST_SCRIPT__', '-c', $path, @$args ]; + my $cmd = [ perl, @$pargs, "-I$dir", '-M__TEST_SCRIPT__', '-c', $path, @$args ]; my $stdin = ''; my $stdout = ''; my $stderr = ''; @@ -128,7 +129,7 @@ # this is hopefully a pm file that nobody would use my $filename = File::Spec->catfile($dir, '__TEST_SCRIPT__.pm'); my $fh; - open($fh, ">$filename") + open($fh, '>', $filename) || die "unable to open $filename: $!"; print($fh 'unshift @INC, ', join ',', @@ -150,8 +151,9 @@ my $opt = _options(\@_); my $unix = shift @$args; my $path = path( $unix ); + my $pargs = _perl_args($path); my $dir = _preload_module(); - my $cmd = [ perl, "-I$dir", '-M__TEST_SCRIPT__', $path, @$args ]; + my $cmd = [ perl, @$pargs, "-I$dir", '-M__TEST_SCRIPT__', $path, @$args ]; $stdout = ''; $stderr = ''; my $rv = eval { run3( $cmd, $opt->{stdin}, $opt->{stdout}, $opt->{stderr} ) }; @@ -276,6 +278,20 @@ Carp::croak("Invalid command parameter"); } +# Determine any extra arguments that need to be passed into Perl. +# ATM this is just -T. +sub _perl_args { + my($script) = @_; + my $fh; + my $first_line = ''; + if(open($fh, '<', $script)) + { + $first_line = <$fh>; + close $fh; + } + (grep /^-.*T/, split /\s+/, $first_line) ? ['-T'] : []; +} + # Inline some basic Params::Util functions sub _options { @@ -318,7 +334,7 @@ =head1 VERSION -version 1.16 +version 1.18 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/t/10_taint.t new/Test-Script-1.18/t/10_taint.t --- old/Test-Script-1.16/t/10_taint.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Script-1.18/t/10_taint.t 2017-04-12 13:01:18.000000000 +0200 @@ -0,0 +1,9 @@ +use strict; +use warnings; +use Test::Script; +use Test::More; + +script_compiles('t/bin/taint.pl'); +script_runs('t/bin/taint.pl'); + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/t/bin/taint.pl new/Test-Script-1.18/t/bin/taint.pl --- old/Test-Script-1.16/t/bin/taint.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Script-1.18/t/bin/taint.pl 2017-04-12 13:01:18.000000000 +0200 @@ -0,0 +1,3 @@ +#!perl -wT + +exit 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.16/t2/test_script__import.t new/Test-Script-1.18/t2/test_script__import.t --- old/Test-Script-1.16/t2/test_script__import.t 2017-03-04 18:16:13.000000000 +0100 +++ new/Test-Script-1.18/t2/test_script__import.t 2017-04-12 13:01:18.000000000 +0200 @@ -24,7 +24,6 @@ ); is( - # does not appear to emit any events. intercept { Test::Script->import('no_plan'); done_testing }, array { event Plan => sub {
