Hello community, here is the log from the commit of package perl-Test-Strict for openSUSE:Factory checked in at 2018-02-18 11:38:54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Strict (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Strict.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Strict" Sun Feb 18 11:38:54 2018 rev:4 rq:577186 version:0.41 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Strict/perl-Test-Strict.changes 2018-01-09 14:51:03.289817256 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Strict.new/perl-Test-Strict.changes 2018-02-18 11:38:57.856923934 +0100 @@ -1,0 +2,9 @@ +Mon Feb 12 12:31:14 UTC 2018 - [email protected] + +- updated to 0.41 + see /usr/share/doc/packages/perl-Test-Strict/Changes + + 0.41 2018-02-09 12:30:00 MANWAR + - Merged pull request #23, thanks @arc. + +------------------------------------------------------------------- Old: ---- Test-Strict-0.40.tar.gz New: ---- Test-Strict-0.41.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Strict.spec ++++++ --- /var/tmp/diff_new_pack.iRn69m/_old 2018-02-18 11:38:58.616896654 +0100 +++ /var/tmp/diff_new_pack.iRn69m/_new 2018-02-18 11:38:58.620896511 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Strict # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 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-Test-Strict -Version: 0.40 +Version: 0.41 Release: 0 %define cpan_name Test-Strict Summary: Check syntax, presence of use strict; and test coverage ++++++ Test-Strict-0.40.tar.gz -> Test-Strict-0.41.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.40/Changes new/Test-Strict-0.41/Changes --- old/Test-Strict-0.40/Changes 2017-11-29 14:01:07.000000000 +0100 +++ new/Test-Strict-0.41/Changes 2018-02-09 13:29:07.000000000 +0100 @@ -1,5 +1,8 @@ Revision history for Test::Strict. +0.41 2018-02-09 12:30:00 MANWAR + - Merged pull request #23, thanks @arc. + 0.40 2017-11-29 13:00:00 MANWAR - Merged pull request #22, thanks @cpansprout. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.40/META.json new/Test-Strict-0.41/META.json --- old/Test-Strict-0.40/META.json 2017-11-29 14:02:01.000000000 +0100 +++ new/Test-Strict-0.41/META.json 2018-02-09 13:29:59.000000000 +0100 @@ -50,7 +50,7 @@ "provides" : { "Test::Strict" : { "file" : "lib/Test/Strict.pm", - "version" : "0.39" + "version" : "0.41" } }, "release_status" : "stable", @@ -65,7 +65,7 @@ "x_license" : "http://dev.perl.org/licenses/"; } }, - "version" : "0.40", + "version" : "0.41", "x_contributors" : [ "Gabor Szabo <[email protected]>", "Peter Vereshagin <[email protected]>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.40/META.yml new/Test-Strict-0.41/META.yml --- old/Test-Strict-0.40/META.yml 2017-11-29 14:02:01.000000000 +0100 +++ new/Test-Strict-0.41/META.yml 2018-02-09 13:29:59.000000000 +0100 @@ -22,7 +22,7 @@ provides: Test::Strict: file: lib/Test/Strict.pm - version: '0.39' + version: '0.41' requires: Devel::Cover: '0.43' File::Find: '0.01' @@ -34,7 +34,7 @@ resources: bugtracker: http://github.com/manwar/Test-Strict repository: http://github.com/manwar/Test-Strict.git -version: '0.40' +version: '0.41' x_contributors: - 'Gabor Szabo <[email protected]>' - 'Peter Vereshagin <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.40/Makefile.PL new/Test-Strict-0.41/Makefile.PL --- old/Test-Strict-0.40/Makefile.PL 2016-12-01 16:04:27.000000000 +0100 +++ new/Test-Strict-0.41/Makefile.PL 2018-02-09 13:29:13.000000000 +0100 @@ -27,7 +27,7 @@ $conf{META_MERGE} = { 'meta-spec' => { version => 2 }, provides => { - 'Test::Strict' => { file => 'lib/Test/Strict.pm', version => '0.39' }, + 'Test::Strict' => { file => 'lib/Test/Strict.pm', version => '0.41' }, }, resources => { repository => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.40/lib/Test/Strict.pm new/Test-Strict-0.41/lib/Test/Strict.pm --- old/Test-Strict-0.40/lib/Test/Strict.pm 2017-11-29 13:59:47.000000000 +0100 +++ new/Test-Strict-0.41/lib/Test/Strict.pm 2018-02-09 13:29:24.000000000 +0100 @@ -6,7 +6,7 @@ =head1 VERSION -Version 0.40 +Version 0.41 =head1 SYNOPSIS @@ -71,7 +71,7 @@ use Config; our $COVER; -our $VERSION = '0.40'; +our $VERSION = '0.41'; our $PERL = $^X || 'perl'; our $COVERAGE_THRESHOLD = 50; # 50% our $UNTAINT_PATTERN = qr|^(.*)$|; @@ -225,19 +225,22 @@ return $ok; } +sub _module_rx { + my (@module_names) = @_; + my $names = join '|', map quotemeta, reverse sort @module_names; + # TODO: improve this matching (e.g. see TODO test) + return qr/\buse\s+(?:$names)(?:[;\s]|$)/; +} + sub _strict_ok { my ($in) = @_; + my $strict_module_rx = _module_rx( modules_enabling_strict() ); local $_; while (<$in>) { next if (/^\s*#/); # Skip comments next if (/^\s*=.+/ .. /^\s*=(cut|back|end)/); # Skip pod last if (/^\s*(__END__|__DATA__)/); # End of code - foreach my $name (modules_enabling_strict()) { - # TODO: improve this matching (e.g. see TODO test) - if (/\buse\s+$name(?:[;\s]|$)/) { - return 1; - } - } + return 1 if $_ =~ $strict_module_rx; if (/\buse\s+(5\.\d+)/ and $1 >= 5.012) { return 1; } @@ -288,6 +291,7 @@ Role::Tiny Spiffy strictures + Test::Roo ); sub modules_enabling_strict { return @MODULES_ENABLING_STRICT } @@ -332,6 +336,7 @@ Role::Tiny Spiffy strictures + Test::Roo ); sub modules_enabling_warnings { return @MODULES_ENABLING_WARNINGS } @@ -375,6 +380,7 @@ # TODO unite with _strict_ok sub _warnings_ok { my ($is_script, $in) = @_; + my $warnings_module_rx = _module_rx( modules_enabling_warnings() ); local $_; while (<$in>) { if ($. == 1 and $is_script and $_ =~ $PERL_PATTERN) { @@ -386,11 +392,7 @@ next if (/^\s*#/); # Skip comments next if (/^\s*=.+/ .. /^\s*=(cut|back|end)/); # Skip pod last if (/^\s*(__END__|__DATA__)/); # End of code - foreach my $name (modules_enabling_warnings()) { - if (/\buse\s+$name(?:[;\s]|$)/) { - return 1; - } - } + return 1 if $_ =~ $warnings_module_rx; } return; }
