Hello community, here is the log from the commit of package perl-strictures for openSUSE:Factory checked in at 2015-06-30 10:19:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-strictures (Old) and /work/SRC/openSUSE:Factory/.perl-strictures.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-strictures" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-strictures/perl-strictures.changes 2015-04-15 16:26:53.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-strictures.new/perl-strictures.changes 2015-06-30 10:19:09.000000000 +0200 @@ -1,0 +2,13 @@ +Mon Jun 29 01:45:32 UTC 2015 - co...@suse.com + +- updated to 2.000001 + see /usr/share/doc/packages/perl-strictures/Changes + + 2.000001 - 2015-06-28 + - update for perl 5.22 warning categories + - avoid using goto &UNIVERSAL::VERSION on perl 5.8, since it segfaults some + builds + - also detect development directories based on .bzr directory + - various test cleanups + +------------------------------------------------------------------- Old: ---- strictures-2.000000.tar.gz New: ---- cpanspec.yml strictures-2.000001.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-strictures.spec ++++++ --- /var/tmp/diff_new_pack.SDoKlN/_old 2015-06-30 10:19:10.000000000 +0200 +++ /var/tmp/diff_new_pack.SDoKlN/_new 2015-06-30 10:19:10.000000000 +0200 @@ -17,14 +17,15 @@ Name: perl-strictures -Version: 2.000000 +Version: 2.000001 Release: 0 %define cpan_name strictures -Summary: turn on strict and make all warnings fatal +Summary: Turn On Strict and Make Most Warnings Fatal License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/strictures/ -Source: http://www.cpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module ++++++ strictures-2.000000.tar.gz -> strictures-2.000001.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/Changes new/strictures-2.000001/Changes --- old/strictures-2.000000/Changes 2015-02-26 10:32:12.000000000 +0100 +++ new/strictures-2.000001/Changes 2015-06-28 09:38:05.000000000 +0200 @@ -1,5 +1,12 @@ Release history for strictures +2.000001 - 2015-06-28 + - update for perl 5.22 warning categories + - avoid using goto &UNIVERSAL::VERSION on perl 5.8, since it segfaults some + builds + - also detect development directories based on .bzr directory + - various test cleanups + 2.000000 - 2015-02-26 * Incompatible Changes - strictures 2 fatalizes only a subset of warnings. Some warning diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/META.json new/strictures-2.000001/META.json --- old/strictures-2.000000/META.json 2015-02-26 10:32:27.000000000 +0100 +++ new/strictures-2.000001/META.json 2015-06-28 09:38:13.000000000 +0200 @@ -1,10 +1,10 @@ { - "abstract" : "turn on strict and make all warnings fatal", + "abstract" : "turn on strict and make most warnings fatal", "author" : [ "mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", + "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001", "license" : [ "perl_5" ], @@ -67,5 +67,5 @@ "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git"; } }, - "version" : "2.000000" + "version" : "2.000001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/META.yml new/strictures-2.000001/META.yml --- old/strictures-2.000000/META.yml 2015-02-26 10:32:27.000000000 +0100 +++ new/strictures-2.000001/META.yml 2015-06-28 09:38:12.000000000 +0200 @@ -1,12 +1,12 @@ --- -abstract: 'turn on strict and make all warnings fatal' +abstract: 'turn on strict and make most warnings fatal' author: - 'mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>' build_requires: Test::More: '0' configure_requires: {} dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240' +generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,4 +26,4 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=strictures license: http://dev.perl.org/licenses/ repository: git://git.shadowcat.co.uk/p5sagit/strictures.git -version: '2.000000' +version: '2.000001' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/README new/strictures-2.000001/README --- old/strictures-2.000000/README 2015-02-26 10:32:27.000000000 +0100 +++ new/strictures-2.000001/README 2015-06-28 09:38:13.000000000 +0200 @@ -1,5 +1,5 @@ NAME - strictures - turn on strict and make all warnings fatal + strictures - turn on strict and make most warnings fatal SYNOPSIS use strictures 2; @@ -24,13 +24,13 @@ (caller)[1] =~ /^(?:t|xt|lib|blib)[\\\/]/ - and when either ".git", ".svn", or ".hg" is present in the current - directory (with the intention of only forcing extra tests on the author - side) -- or when ".git", ".svn", or ".hg" is present two directories up - along with "dist.ini" (which would indicate we are in a "dzil test" - operation, via Dist::Zilla) -- or when the "PERL_STRICTURES_EXTRA" - environment variable is set, in which case it also does the equivalent - of + and when either ".git", ".svn", ".hg", or ".bzr" is present in the + current directory (with the intention of only forcing extra tests on the + author side) -- or when ".git", ".svn", ".hg", or ".bzr" is present two + directories up along with "dist.ini" (which would indicate we are in a + "dzil test" operation, via Dist::Zilla) -- or when the + "PERL_STRICTURES_EXTRA" environment variable is set, in which case it + also does the equivalent of no indirect 'fatal'; no multidimensional; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/lib/strictures.pm new/strictures-2.000001/lib/strictures.pm --- old/strictures-2.000000/lib/strictures.pm 2015-02-26 00:04:21.000000000 +0100 +++ new/strictures-2.000001/lib/strictures.pm 2015-06-28 09:38:00.000000000 +0200 @@ -5,10 +5,12 @@ BEGIN { *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0}; - *_CAN_GOTO_VERSION = ($] >= 5.008000) ? sub(){1} : sub(){0}; + # goto &UNIVERSAL::VERSION usually works on 5.8, but fails on some ARM + # machines. Seems to always work on 5.10 though. + *_CAN_GOTO_VERSION = ($] >= 5.010000) ? sub(){1} : sub(){0}; } -our $VERSION = '2.000000'; +our $VERSION = '2.000001'; $VERSION = eval $VERSION; our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw( @@ -18,6 +20,7 @@ exiting experimental experimental::autoderef + experimental::bitwise experimental::const_attr experimental::lexical_subs experimental::lexical_topic @@ -197,9 +200,9 @@ and $file =~ /^(?:t|xt|lib|blib)[\\\/]/ and defined $Smells_Like_VCS ? $Smells_Like_VCS : ( $Smells_Like_VCS = !!( - -e '.git' || -e '.svn' || -e '.hg' + -e '.git' || -e '.svn' || -e '.hg' || -e '.bzr' || (-e '../../dist.ini' - && (-e '../../.git' || -e '../../.svn' || -e '../../.hg' )) + && (-e '../../.git' || -e '../../.svn' || -e '../../.hg' || -e '../../.bzr' )) )) ); } @@ -243,7 +246,7 @@ __END__ =head1 NAME -strictures - turn on strict and make all warnings fatal +strictures - turn on strict and make most warnings fatal =head1 SYNOPSIS @@ -269,12 +272,12 @@ (caller)[1] =~ /^(?:t|xt|lib|blib)[\\\/]/ -and when either C<.git>, C<.svn>, or C<.hg> is present in the current directory -(with the intention of only forcing extra tests on the author side) -- or when -C<.git>, C<.svn>, or C<.hg> is present two directories up along with -C<dist.ini> (which would indicate we are in a C<dzil test> operation, via -L<Dist::Zilla>) -- or when the C<PERL_STRICTURES_EXTRA> environment variable is -set, in which case it also does the equivalent of +and when either C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present in the current +directory (with the intention of only forcing extra tests on the author side) +-- or when C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present two directories up +along with C<dist.ini> (which would indicate we are in a C<dzil test> operation, +via L<Dist::Zilla>) -- or when the C<PERL_STRICTURES_EXTRA> environment variable +is set, in which case it also does the equivalent of no indirect 'fatal'; no multidimensional; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/t/extras.t new/strictures-2.000001/t/extras.t --- old/strictures-2.000000/t/extras.t 2015-02-01 21:32:15.000000000 +0100 +++ new/strictures-2.000001/t/extras.t 2015-05-28 02:14:23.000000000 +0200 @@ -90,16 +90,17 @@ { open my $fh, '>', \(my $str = ''); + my $e; { local *STDERR = $fh; eval qq{ #line 1 "t/load_fail.t" use strictures; 1; - } or die "$@"; + } or $e = "$@"; } + die $e if defined $e; - strictures->import; like( $str, qr/Missing were:\n\n indirect multidimensional bareword::filehandles/, @@ -109,14 +110,16 @@ { open my $fh, '>', \(my $str = ''); + my $e; { local *STDERR = $fh; eval qq{ #line 1 "t/load_fail.t" use strictures; 1; - } or die "$@"; + } or $e = "$@"; } + die $e if defined $e; is $str, '', "extra dep load failure is not reported a second time"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-2.000000/t/strictures.t new/strictures-2.000001/t/strictures.t --- old/strictures-2.000000/t/strictures.t 2015-02-05 10:49:54.000000000 +0100 +++ new/strictures-2.000001/t/strictures.t 2015-06-28 09:37:21.000000000 +0200 @@ -1,57 +1,68 @@ BEGIN { $ENV{PERL_STRICTURES_EXTRA} = 0 } -use Test::More qw(no_plan); +sub _eval { eval $_[0] } -our ($hints, $warning_bits); +use strict; +use warnings; +use Test::More qw(no_plan); sub capture_hints { + my $code = shift; + $code .= q{ + ; + my @h; + BEGIN { @h = ( $^H, ${^WARNING_BITS} ) } + @h; + }; + my ($hints, $warning_bits) = _eval $code or die $@; # ignore lexicalized hints - $hints = $^H & ~ 0x20000; - $warning_bits = defined ${^WARNING_BITS} ? (unpack "H*", ${^WARNING_BITS}) : undef; + $hints &= ~ 0x20000; + $warning_bits = unpack "H*", $warning_bits + if defined $warning_bits; + return ($hints, $warning_bits); } -sub test_hints { - my $name = shift; - my $want_hints = $hints; - my $want_bits = $warning_bits; - capture_hints; - is($hints, $want_hints, "Hints ok for $name"); - is($warning_bits, $want_bits, "Warnings ok for $name"); +sub compare_hints { + my ($code_want, $code_got, $name) = @_; + my ($want_hints, $want_warnings) = capture_hints $code_want; + my ($hints, $warnings) = capture_hints $code_got; + is($hints, $want_hints, "Hints correct for $name"); + is($warnings, $want_warnings, "Warnings correct for $name"); } -{ +compare_hints q{ use strict; use warnings FATAL => 'all'; - BEGIN { capture_hints } -} - -{ +}, +q{ use strictures 1; - BEGIN { test_hints "version 1" } -} +}, + 'version 1'; -{ +compare_hints q{ use strict; - BEGIN { - warnings->import('all'); - warnings->import(FATAL => @strictures::WARNING_CATEGORIES); - warnings->unimport(FATAL => @strictures::V2_NONFATAL); - warnings->import(@strictures::V2_NONFATAL); - warnings->unimport(@strictures::V2_DISABLE); - } - BEGIN { capture_hints } -} - -{ + use warnings 'all'; + use warnings FATAL => @strictures::WARNING_CATEGORIES; + no warnings FATAL => @strictures::V2_NONFATAL; + use warnings @strictures::V2_NONFATAL; + no warnings @strictures::V2_DISABLE; +}, +q{ use strictures 2; - BEGIN { test_hints "version 2" } -} +}, + 'version 2'; my $v; eval { $v = strictures->VERSION; 1 } or diag $@; is $v, $strictures::VERSION, '->VERSION returns version correctly'; -eval q{ use strictures 3; }; +my $next = int $strictures::VERSION + 1; +eval qq{ use strictures $next; }; + +like $@, qr/strictures version $next required/, + "Can't use strictures $next (this is version $v)"; + +eval qq{ use strictures $strictures::VERSION; }; -like $@, qr/strictures version 3 required/, - "Can't use strictures 3 (this is version 2)"; +is $@, '', + "Can use current strictures version";
