Hello community, here is the log from the commit of package perl-Module-Find for openSUSE:Factory checked in at 2014-02-28 19:15:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Module-Find (Old) and /work/SRC/openSUSE:Factory/.perl-Module-Find.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-Find" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Module-Find/perl-Module-Find.changes 2012-05-25 16:17:50.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Module-Find.new/perl-Module-Find.changes 2014-02-28 19:15:35.000000000 +0100 @@ -1,0 +2,14 @@ +Mon Feb 24 08:37:02 UTC 2014 - [email protected] + +- updated to 0.12 + Fixed RT#81077: useall fails in taint mode + Thanks to Aran Deltac, who contributed the implementation and test. + + Fixed RT#83596: Documentation doesn't describe behaviour if a module fails to load + Clarified documentation for useall and usesub. + + Fixed RT#62923: setmoduledirs(undef) doesn't reset to searching @INC + Added more explicit tests. + Thanks to Colin Robertson for his input. + +------------------------------------------------------------------- Old: ---- Module-Find-0.11.tar.gz New: ---- Module-Find-0.12.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Module-Find.spec ++++++ --- /var/tmp/diff_new_pack.VJtnlg/_old 2014-02-28 19:15:35.000000000 +0100 +++ /var/tmp/diff_new_pack.VJtnlg/_new 2014-02-28 19:15:35.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Module-Find # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 SUSE LINUX Products 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-Module-Find -Version: 0.11 +Version: 0.12 Release: 0 %define cpan_name Module-Find Summary: Find and use installed modules in a (sub)category @@ -29,9 +29,8 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -#BuildRequires: perl(Module::Find) -BuildRequires: perl(Test::Pod) >= 1.14 -BuildRequires: perl(Test::Pod::Coverage) >= 1.04 +Recommends: perl(Test::Pod) >= 1.14 +Recommends: perl(Test::Pod::Coverage) >= 1.04 %{perl_requires} %description ++++++ Module-Find-0.11.tar.gz -> Module-Find-0.12.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/Changes new/Module-Find-0.12/Changes --- old/Module-Find-0.11/Changes 2010-02-26 16:38:21.000000000 +0100 +++ new/Module-Find-0.12/Changes 2014-02-06 19:53:34.000000000 +0100 @@ -1 +1 @@ -See Find.pm for a detaled version history. \ No newline at end of file +See Find.pm for a detailed version history. \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/Find.pm new/Module-Find-0.12/Find.pm --- old/Module-Find-0.11/Find.pm 2012-05-22 02:31:55.000000000 +0200 +++ new/Module-Find-0.12/Find.pm 2014-02-06 21:59:49.000000000 +0100 @@ -7,7 +7,7 @@ use File::Spec; use File::Find; -our $VERSION = '0.11'; +our $VERSION = '0.12'; our $basedir = undef; our @results = (); @@ -78,7 +78,7 @@ =cut sub setmoduledirs { - return @Module::Find::ModuleDirs = @_; + return @Module::Find::ModuleDirs = grep { defined } @_; } =item C<@found = findsubmod Module::Category> @@ -115,6 +115,8 @@ installation. E.g. C<usesub CGI> will return C<CGI::Session>, but not C<CGI::Session::File> . +If any module dies during loading, usesub will also die at this point. + =cut sub usesub(*) { @@ -135,6 +137,8 @@ Uses and returns modules found in the Module/Category subdirectories of your perl installation. E.g. C<useall CGI> will return C<CGI::Session> and also C<CGI::Session::File> . +If any module dies during loading, useall will also die at this point. + =cut sub useall(*) { @@ -200,6 +204,11 @@ @results = grep { not $seen{$_}++ } @results; @results = map "$category\::$_", @results; + + @results = map { + ($_ =~ m{^(\w+(?:::\w+)*)$})[0] || die "$_ does not look like a package name" + } @results; + return @results; } @@ -280,6 +289,19 @@ =item 0.11, 2012-05-22 Fixed RT#74251: defined(@array) is deprecated under Perl 5.15.7. +Thanks to Roman F, who contributed the implementation. + +=item 0.12, 2014-02-08 + +Fixed RT#81077: useall fails in taint mode +Thanks to Aran Deltac, who contributed the implementation and test. + +Fixed RT#83596: Documentation doesn't describe behaviour if a module fails to load +Clarified documentation for useall and usesub. + +Fixed RT#62923: setmoduledirs(undef) doesn't reset to searching @INC +Added more explicit tests. +Thanks to Colin Robertson for his input. =back @@ -297,7 +319,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright 2004-2012 by Christian Renz <[email protected]>. All rights reserved. +Copyright 2004-2014 by Christian Renz <[email protected]>. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/MANIFEST new/Module-Find-0.12/MANIFEST --- old/Module-Find-0.11/MANIFEST 2008-01-26 00:56:19.000000000 +0100 +++ new/Module-Find-0.12/MANIFEST 2014-02-06 19:54:41.000000000 +0100 @@ -12,6 +12,8 @@ t/4-useall.t t/5-setmoduledirs.t t/6-duplicate-modules.t +t/7-symlinks.t +t/8-taint.t t/pod-coverage.t t/pod.t test/duplicates/ModuleFindTest.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/META.yml new/Module-Find-0.12/META.yml --- old/Module-Find-0.11/META.yml 2012-05-22 02:33:31.000000000 +0200 +++ new/Module-Find-0.12/META.yml 2014-02-06 22:05:34.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Module-Find -version: 0.11 +version: 0.12 abstract: Find and use installed modules in a (sub)category author: - Christian Renz <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/README new/Module-Find-0.12/README --- old/Module-Find-0.11/README 2012-05-22 02:29:50.000000000 +0200 +++ new/Module-Find-0.12/README 2014-02-06 19:53:49.000000000 +0100 @@ -24,7 +24,7 @@ COPYRIGHT AND LICENCE -Copyright (C) 2004-2012 Christian Renz <[email protected]>. All rights reserved. +Copyright (C) 2004-2014 Christian Renz <[email protected]>. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/t/5-setmoduledirs.t new/Module-Find-0.12/t/5-setmoduledirs.t --- old/Module-Find-0.11/t/5-setmoduledirs.t 2008-01-22 21:09:21.000000000 +0100 +++ new/Module-Find-0.12/t/5-setmoduledirs.t 2014-02-06 21:57:41.000000000 +0100 @@ -1,9 +1,11 @@ -use Test::More tests => 9; +use Test::More tests => 18; use Module::Find; # First, with @INC only +ok($#Module::Find::ModuleDirs == -1); + @l = findsubmod ModuleFindTest; ok($#l == -1); @@ -13,6 +15,7 @@ # Then, including our directory setmoduledirs('./test'); +ok($#Module::Find::ModuleDirs == 0); @l = findsubmod ModuleFindTest; ok($#l == 0); @@ -23,9 +26,10 @@ ok($l[0] eq 'ModuleFindTest::SubMod'); ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod'); -# Third, reset to @INC only +# Third, reset back to @INC only setmoduledirs(); +ok($#Module::Find::ModuleDirs == -1); @l = findsubmod ModuleFindTest; ok($#l == -1); @@ -33,6 +37,17 @@ @l = findallmod ModuleFindTest; ok($#l == -1); -# Then, including our directory +# Fourth, including our directory again + +setmoduledirs('./test'); +ok($#Module::Find::ModuleDirs == 0); + +@l = findsubmod ModuleFindTest; +ok($#l == 0); +ok($l[0] eq 'ModuleFindTest::SubMod'); +@l = findallmod ModuleFindTest; +ok($#l == 1); +ok($l[0] eq 'ModuleFindTest::SubMod'); +ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/t/7-symlinks.t new/Module-Find-0.12/t/7-symlinks.t --- old/Module-Find-0.11/t/7-symlinks.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Find-0.12/t/7-symlinks.t 2014-02-06 19:16:18.000000000 +0100 @@ -0,0 +1,55 @@ +use Test::More tests => 13; + +use Module::Find qw(ignoresymlinks followsymlinks findsubmod findallmod); + +use lib qw(./test); + +my $dirName = "ModuleFindTest"; +my $linkName = "./test/ModuleFindTestSymLink"; + +SKIP: { + eval { symlink($dirName, $linkName) }; + skip "Symlinks not supported on this system", 13 if $@; + + my @l; + + # Default behaviour: follow symlinks ----------------------- + @l = findsubmod ModuleFindTestSymLink; + ok($#l == 0); + ok($l[0] eq 'ModuleFindTestSymLink::SubMod'); + + @l = findallmod ModuleFindTestSymLink; + ok($#l == 1); + ok($l[0] eq 'ModuleFindTestSymLink::SubMod'); + ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod'); + + + # Switch off following symlinks --------------------------- + ignoresymlinks(); + @l = findsubmod ModuleFindTestSymLink; + ok($#l == -1); + + @l = findallmod ModuleFindTestSymLink; + ok($#l == -1); + + + # Re-enable it -------------------------------------------- + followsymlinks(); + @l = findsubmod ModuleFindTestSymLink; + ok($#l == 0); + ok($l[0] eq 'ModuleFindTestSymLink::SubMod'); + + @l = findallmod ModuleFindTestSymLink; + ok($#l == 1); + ok($l[0] eq 'ModuleFindTestSymLink::SubMod'); + ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod'); + + + + # Clean up + unlink $linkName; + ok(!-e $linkName); +} + + + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Find-0.11/t/8-taint.t new/Module-Find-0.12/t/8-taint.t --- old/Module-Find-0.11/t/8-taint.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Find-0.12/t/8-taint.t 2014-02-06 19:16:18.000000000 +0100 @@ -0,0 +1,21 @@ +#!perl -T + +use Test::More tests => 4; + +use Module::Find; + +use lib qw(./test); + +findsubmod ModuleFindTest; + +usesub ModuleFindTest; +ok($ModuleFindTest::SubMod::loaded); +ok(!$ModuleFindTest::SubMod::SubSubMod::loaded); + +useall ModuleFindTest; +ok($ModuleFindTest::SubMod::loaded); +ok($ModuleFindTest::SubMod::SubSubMod::loaded); + +setmoduledirs('./test'); +findallmod ModuleFindTest; + -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
