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 - co...@suse.com
+
+- 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 {
