Hello community, here is the log from the commit of package perl-Test-Strict for openSUSE:Factory checked in at 2018-07-18 22:37:56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Strict (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Strict.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Strict" Wed Jul 18 22:37:56 2018 rev:6 rq:623042 version:0.46 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Strict/perl-Test-Strict.changes 2018-02-26 23:23:17.074363563 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Strict.new/perl-Test-Strict.changes 2018-07-18 22:38:04.194117257 +0200 @@ -1,0 +2,9 @@ +Sat Jul 7 06:09:20 UTC 2018 - [email protected] + +- updated to 0.46 + see /usr/share/doc/packages/perl-Test-Strict/Changes + + 0.46 2018-07-06 15:55:00 MANWAR + - Patched issue #24 raised by @robrwo. + +------------------------------------------------------------------- Old: ---- Test-Strict-0.45.tar.gz New: ---- Test-Strict-0.46.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Strict.spec ++++++ --- /var/tmp/diff_new_pack.n6vpuE/_old 2018-07-18 22:38:05.078114328 +0200 +++ /var/tmp/diff_new_pack.n6vpuE/_new 2018-07-18 22:38:05.078114328 +0200 @@ -17,7 +17,7 @@ Name: perl-Test-Strict -Version: 0.45 +Version: 0.46 Release: 0 %define cpan_name Test-Strict Summary: Check syntax, presence of use strict; and test coverage ++++++ Test-Strict-0.45.tar.gz -> Test-Strict-0.46.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/Changes new/Test-Strict-0.46/Changes --- old/Test-Strict-0.45/Changes 2018-02-22 17:44:31.000000000 +0100 +++ new/Test-Strict-0.46/Changes 2018-07-06 16:53:46.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Test::Strict. +0.46 2018-07-06 15:55:00 MANWAR + - Patched issue #24 raised by @robrwo. + 0.45 2018-02-22 16:45:00 MANWAR - Revisited to address issue #17, (Devel::Cover no longer prereq). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/MANIFEST new/Test-Strict-0.46/MANIFEST --- old/Test-Strict-0.45/MANIFEST 2018-02-22 17:45:41.000000000 +0100 +++ new/Test-Strict-0.46/MANIFEST 2018-07-06 16:54:03.000000000 +0200 @@ -8,6 +8,7 @@ README t/01all.t t/02fail.t +t/03-test-perl-file.t t/04cover.t t/00-load.t t/90-pod.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/META.json new/Test-Strict-0.46/META.json --- old/Test-Strict-0.45/META.json 2018-02-22 17:45:40.000000000 +0100 +++ new/Test-Strict-0.46/META.json 2018-07-06 16:54:02.000000000 +0200 @@ -64,7 +64,7 @@ "x_license" : "http://dev.perl.org/licenses/"; } }, - "version" : "0.45", + "version" : "0.46", "x_contributors" : [ "Gabor Szabo <[email protected]>", "Peter Vereshagin <[email protected]>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/META.yml new/Test-Strict-0.46/META.yml --- old/Test-Strict-0.45/META.yml 2018-02-22 17:45:40.000000000 +0100 +++ new/Test-Strict-0.46/META.yml 2018-07-06 16:54:02.000000000 +0200 @@ -33,7 +33,7 @@ resources: bugtracker: http://github.com/manwar/Test-Strict repository: http://github.com/manwar/Test-Strict.git -version: '0.45' +version: '0.46' x_contributors: - 'Gabor Szabo <[email protected]>' - 'Peter Vereshagin <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/lib/Test/Strict.pm new/Test-Strict-0.46/lib/Test/Strict.pm --- old/Test-Strict-0.45/lib/Test/Strict.pm 2018-02-22 17:42:33.000000000 +0100 +++ new/Test-Strict-0.46/lib/Test/Strict.pm 2018-07-06 16:40:07.000000000 +0200 @@ -6,7 +6,7 @@ =head1 VERSION -Version 0.45 +Version 0.46 =head1 SYNOPSIS @@ -71,7 +71,7 @@ use Config; our $COVER; -our $VERSION = '0.45'; +our $VERSION = '0.46'; our $PERL = $^X || 'perl'; our $COVERAGE_THRESHOLD = 50; # 50% our $UNTAINT_PATTERN = qr|^(.*)$|; @@ -495,6 +495,7 @@ } sub _is_perl_module { + return 0 if $_[0] =~ /\~$/; $_[0] =~ /\.pm$/i || $_[0] =~ /::/; } @@ -502,6 +503,7 @@ sub _is_perl_script { my $file = shift; + return 0 if $file =~ /\~$/; return 1 if $file =~ /\.pl$/i; return 1 if $file =~ /\.t$/; open my $fh, '<', $file or return; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/t/01all.t new/Test-Strict-0.46/t/01all.t --- old/Test-Strict-0.45/t/01all.t 2016-12-01 16:03:25.000000000 +0100 +++ new/Test-Strict-0.46/t/01all.t 2018-07-06 16:48:08.000000000 +0200 @@ -15,7 +15,7 @@ } } -my $tests = 55; +my $tests = 57; $tests += 2 if -e 'blib/lib/Test/Strict.pm'; plan tests => $tests; @@ -277,4 +277,3 @@ $x = 23; --------- - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Strict-0.45/t/03-test-perl-file.t new/Test-Strict-0.46/t/03-test-perl-file.t --- old/Test-Strict-0.45/t/03-test-perl-file.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Strict-0.46/t/03-test-perl-file.t 2018-07-06 16:45:50.000000000 +0200 @@ -0,0 +1,19 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use Test::More; +use Test::Strict; + +my $f1 = "1.pl~"; +my $f2 = "2.pl"; +my $f3 = "3.pm~"; +my $f4 = "4.pm"; + +ok(!Test::Strict::_is_perl_script("1.pl~")); +ok(Test::Strict::_is_perl_script("1.pl")); + +ok(!Test::Strict::_is_perl_module("3.pm~")); +ok(Test::Strict::_is_perl_module("4.pm")); + +done_testing();
