Hello community, here is the log from the commit of package perl-strictures for openSUSE:Factory checked in at 2013-11-29 12:04:38 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2013-06-06 13:27:52.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-strictures.new/perl-strictures.changes 2013-11-29 12:04:39.000000000 +0100 @@ -1,0 +2,10 @@ +Mon Nov 25 07:38:55 UTC 2013 - [email protected] + +- updated to 1.005001 + - fix skip on old perl on test script + - detect mercurial when checking for development trees + - avoid using constant.pm to save a bit of memory on older perls + - update to v2 metadata + - fix crash in 1.004003 due to qw() list being readonly + +------------------------------------------------------------------- Old: ---- strictures-1.004004.tar.gz New: ---- strictures-1.005001.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-strictures.spec ++++++ --- /var/tmp/diff_new_pack.wu5M3h/_old 2013-11-29 12:04:40.000000000 +0100 +++ /var/tmp/diff_new_pack.wu5M3h/_new 2013-11-29 12:04:40.000000000 +0100 @@ -17,14 +17,14 @@ Name: perl-strictures -Version: 1.004004 +Version: 1.005001 Release: 0 %define cpan_name strictures Summary: turn on strict and make all 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/E/ET/ETHER/%{cpan_name}-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ strictures-1.004004.tar.gz -> strictures-1.005001.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/Changes new/strictures-1.005001/Changes --- old/strictures-1.004004/Changes 2012-11-12 20:05:20.000000000 +0100 +++ new/strictures-1.005001/Changes 2013-11-07 18:23:09.000000000 +0100 @@ -1,33 +1,55 @@ -1.004004 - 2012-11-12 - - fix 5.16 crash due to qw() list being readonly -1.004003 - 2012-11-10 +Release history for strictures + +1.005001 2013-11-07 + - fix skip on old perl on test script + +1.005000 2013-11-05 + - detect mercurial when checking for development trees + - avoid using constant.pm to save a bit of memory on older perls + - update to v2 metadata + +1.004004 2012-11-12 + - fix crash in 1.004003 due to qw() list being readonly + +1.004003 2012-11-10 - check only once for presence of extra testing prereqs - explicitly specify no dynamic_config in META -1.004002 - 2012-09-08 + +1.004002 2012-09-08 - add better rationale for the extra testing heuristic -1.004001 - 2012-07-12 + +1.004001 2012-07-12 - test-specific strictures now enabled during 'dzil test' -1.004000 - 2012-07-12 + +1.004000 2012-07-12 - switch to testing calling file to avoid firing on dependencies -1.003001 - 2012-04-08 + +1.003001 2012-04-08 - fix test to handle defatalization -1.003000 - 2012-04-07 + +1.003000 2012-04-07 - try and run for any checkout t/ now we don't blow up the process - defatalize lack of extra testing modules - disable extra tests on perls <= 5.008003, things do not work there as expected -1.002002 - 2011-02-25 + +1.002002 2011-02-25 - only try and mkdir the .git if it doesn't already exist so repeated test runs don't explode -1.002001 - 2011-02-25 + +1.002001 2011-02-25 - switch .svn to .git in smells-of-vcs test and create it ourselves to ease importing of this dist into subversion repositories -1.002000 - 2011-02-16 + +1.002000 2011-02-16 - add multidimensional and bareword::filehandles in author mode -1.1.1 Dec 05 2010 + +1.1.1 2010-12-05 - disable uninitialized warnings before calling ->SUPER::VERSION -1.1.0 Nov 22 2010 + +1.1.0 2010-11-22 - enable extra testing only if .git or .svn present to keep requirement for extra modules author-side -1.0.0 Jul 18 2010 + +1.0.0 2010-07-18 - initial release diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/MANIFEST new/strictures-1.005001/MANIFEST --- old/strictures-1.004004/MANIFEST 2012-11-12 20:05:36.000000000 +0100 +++ new/strictures-1.005001/MANIFEST 2013-11-07 18:23:21.000000000 +0100 @@ -6,6 +6,9 @@ Makefile.PL MANIFEST This list of files t/crash.t +t/dep_constellations/broken/bareword/filehandles.pm +t/dep_constellations/broken/indirect.pm +t/dep_constellations/broken/multidimensional.pm t/smells-of-vcs/.exists t/smells-of-vcs/lib/one.pm t/smells-of-vcs/other/one.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/META.json new/strictures-1.005001/META.json --- old/strictures-1.004004/META.json 2012-11-12 20:05:35.000000000 +0100 +++ new/strictures-1.005001/META.json 2013-11-07 18:23:20.000000000 +0100 @@ -4,7 +4,7 @@ "mst - Matt S. Trout (cpan:MSTROUT) <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", + "generated_by" : "ExtUtils::MakeMaker version 6.8, CPAN::Meta::Converter version 2.132830", "license" : [ "perl_5" ], @@ -25,26 +25,28 @@ "ExtUtils::MakeMaker" : "0" } }, - "configure" : { - "requires" : { - "ExtUtils::MakeMaker" : "0" - } - }, "runtime" : { "recommends" : { "bareword::filehandles" : "0", "indirect" : "0", "multidimensional" : "0" }, - "requires" : {} + "requires" : { + "perl" : "5.006" + } } }, "release_status" : "stable", "resources" : { - "homepage" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git";, + "bugtracker" : { + "mailto" : "[email protected]", + "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=strictures"; + }, "repository" : { - "url" : "git://git.shadowcat.co.uk/p5sagit/strictures.git" + "type" : "git", + "url" : "git://git.shadowcat.co.uk/p5sagit/strictures.git", + "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git"; } }, - "version" : "1.004004" + "version" : "1.005001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/META.yml new/strictures-1.005001/META.yml --- old/strictures-1.004004/META.yml 2012-11-12 20:05:35.000000000 +0100 +++ new/strictures-1.005001/META.yml 2013-11-07 18:23:20.000000000 +0100 @@ -4,10 +4,8 @@ - 'mst - Matt S. Trout (cpan:MSTROUT) <[email protected]>' build_requires: ExtUtils::MakeMaker: 0 -configure_requires: - ExtUtils::MakeMaker: 0 dynamic_config: 0 -generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' +generated_by: 'ExtUtils::MakeMaker version 6.8, CPAN::Meta::Converter version 2.132830' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -21,8 +19,9 @@ bareword::filehandles: 0 indirect: 0 multidimensional: 0 -requires: {} +requires: + perl: 5.006 resources: - homepage: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git + bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=strictures repository: git://git.shadowcat.co.uk/p5sagit/strictures.git -version: 1.004004 +version: 1.005001 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/Makefile.PL new/strictures-1.005001/Makefile.PL --- old/strictures-1.004004/Makefile.PL 2012-11-10 19:34:06.000000000 +0100 +++ new/strictures-1.005001/Makefile.PL 2013-11-06 00:43:35.000000000 +0100 @@ -7,20 +7,33 @@ WriteMakefile( NAME => 'strictures', VERSION_FROM => 'lib/strictures.pm', + MIN_PERL_VERSION => '5.006', META_MERGE => { + 'meta-spec' => { version => 2 }, dynamic_config => 0, resources => { # r/w: [email protected]:strictures.git - repository => 'git://git.shadowcat.co.uk/p5sagit/strictures.git', - homepage => 'http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git', + repository => { + url => 'git://git.shadowcat.co.uk/p5sagit/strictures.git', + web => 'http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git', + type => 'git', + }, + bugtracker => { + mailto => '[email protected]', + web => 'https://rt.cpan.org/Public/Dist/Display.html?Name=strictures', + }, }, - recommends => { - indirect => 0, - multidimensional => 0, - 'bareword::filehandles' => 0, + prereqs => { + runtime => { + recommends => { + indirect => 0, + multidimensional => 0, + 'bareword::filehandles' => 0, + }, + }, }, }, ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/README new/strictures-1.005001/README --- old/strictures-1.004004/README 2012-11-12 20:05:35.000000000 +0100 +++ new/strictures-1.005001/README 2013-11-07 18:23:21.000000000 +0100 @@ -13,12 +13,12 @@ (caller)[1] =~ /^(?:t|xt|lib|blib)/ - and when either ".git" or ".svn" is present in the current directory - (with the intention of only forcing extra tests on the author side) -- - or when ".git" or ".svn" 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 + 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 use strictures 1; @@ -139,6 +139,13 @@ discussion on the subject to focus on "how do we minimise annoyance to people deploying from checkouts intentionally". +SEE ALSO + * indirect + + * multidimensional + + * bareword::filehandles + COMMUNITY AND SUPPORT IRC channel irc.perl.org #toolchain @@ -158,7 +165,11 @@ mst - Matt S. Trout (cpan:MSTROUT) <[email protected]> CONTRIBUTORS - None required yet. Maybe this module is perfect (hahahahaha ...). + Karen Etheridge (cpan:ETHER) <[email protected]> + + Mithaldu - Christian Walde (cpan:MITHALDU) <[email protected]> + + haarg - Graham Knop (cpan:HAARG) <[email protected]> COPYRIGHT Copyright (c) 2010 the strictures "AUTHOR" and "CONTRIBUTORS" as listed diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/lib/strictures.pm new/strictures-1.005001/lib/strictures.pm --- old/strictures-1.004004/lib/strictures.pm 2012-11-12 20:04:07.000000000 +0100 +++ new/strictures-1.005001/lib/strictures.pm 2013-11-07 18:18:27.000000000 +0100 @@ -3,9 +3,11 @@ use strict; use warnings FATAL => 'all'; -use constant _PERL_LT_5_8_4 => ($] < 5.008004) ? 1 : 0; +BEGIN { + *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0}; +} -our $VERSION = '1.004004'; # 1.4.4 +our $VERSION = '1.005001'; # 1.5.1 sub VERSION { for ($_[1]) { @@ -21,10 +23,11 @@ shift->SUPER::VERSION(@_); } -my $extra_load_states; +our $extra_load_states; -our $Smells_Like_VCS = (-e '.git' || -e '.svn' - || (-e '../../dist.ini' && (-e '../../.git' || -e '../../.svn'))); +our $Smells_Like_VCS = (-e '.git' || -e '.svn' || -e '.hg' + || (-e '../../dist.ini' + && (-e '../../.git' || -e '../../.svn' || -e '../../.hg' ))); sub import { strict->import; @@ -104,9 +107,9 @@ (caller)[1] =~ /^(?:t|xt|lib|blib)/ -and when either C<.git> or C<.svn> is present in the current directory (with -the intention of only forcing extra tests on the author side) -- or when C<.git> -or C<.svn> is present two directories up along with C<dist.ini> (which would +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 @@ -232,6 +235,24 @@ and will allow any future discussion on the subject to focus on "how do we minimise annoyance to people deploying from checkouts intentionally". +=head1 SEE ALSO + +=over 4 + +=item * + +L<indirect> + +=item * + +L<multidimensional> + +=item * + +L<bareword::filehandles> + +=back + =head1 COMMUNITY AND SUPPORT =head2 IRC channel @@ -256,7 +277,11 @@ =head1 CONTRIBUTORS -None required yet. Maybe this module is perfect (hahahahaha ...). +Karen Etheridge (cpan:ETHER) <[email protected]> + +Mithaldu - Christian Walde (cpan:MITHALDU) <[email protected]> + +haarg - Graham Knop (cpan:HAARG) <[email protected]> =head1 COPYRIGHT diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/maint/Makefile.PL.include new/strictures-1.005001/maint/Makefile.PL.include --- old/strictures-1.004004/maint/Makefile.PL.include 2012-07-12 22:52:17.000000000 +0200 +++ new/strictures-1.005001/maint/Makefile.PL.include 2013-11-06 00:43:35.000000000 +0100 @@ -6,4 +6,5 @@ manifest_include( 't/smells-of-vcs' => qr{.*}, + 't/dep_constellations' => '.pm', ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/strictures-1.004004/t/strictures.t new/strictures-1.005001/t/strictures.t --- old/strictures-1.004004/t/strictures.t 2012-11-10 18:20:45.000000000 +0100 +++ new/strictures-1.005001/t/strictures.t 2013-11-06 17:17:49.000000000 +0100 @@ -52,6 +52,36 @@ like($@, qr{Indirect call of method}, "Failed due to indirect.pm, ok"); } ok(eval { require "other/one.pl"; 1 }, "Loaded other/one.pl ok"); + chdir("../.."); } ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)"); + +SKIP: { + skip 'Extra tests disabled on perls <= 5.008003', 1 + if $] < 5.008004; + local $ENV{PERL_STRICTURES_EXTRA} = 1; + local $strictures::extra_load_states = undef; + local @INC = ("t/dep_constellations/broken", @INC); + local %INC = %INC; + delete $INC{$_} + for qw( indirect.pm multidimensional.pm bareword/filehandles.pm ); + + { + open my $fh, '>', \my $str; + local *STDERR = $fh; + strictures->import; + like( + $str, + qr/Missing were:\n\n indirect multidimensional bareword::filehandles/, + "failure to load all three extra deps is reported" + ); + } + + { + open my $fh, '>', \my $str; + local *STDERR = $fh; + strictures->import; + ok( !$str, "extra dep load failure is not reported a second time" ); + } +} -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
