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 - co...@suse.com
+
+- 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 <cr...@web42.com>. All rights reserved.
+Copyright 2004-2014 by Christian Renz <cr...@web42.com>. 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 <cr...@web42.com>
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 <cr...@web42.com>. All rights reserved.
+Copyright (C) 2004-2014 Christian Renz <cr...@web42.com>. 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: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
