r44463 - in /branches/upstream/libmodule-find-perl/current: Find.pm META.yml README
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Sep 20 22:23:31 UTC 2009
Author: jawnsy-guest
Date: Sun Sep 20 22:23:26 2009
New Revision: 44463
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44463
Log:
[svn-upgrade] Integrating new upstream version, libmodule-find-perl (0.08)
Modified:
branches/upstream/libmodule-find-perl/current/Find.pm
branches/upstream/libmodule-find-perl/current/META.yml
branches/upstream/libmodule-find-perl/current/README
Modified: branches/upstream/libmodule-find-perl/current/Find.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-find-perl/current/Find.pm?rev=44463&op=diff
==============================================================================
--- branches/upstream/libmodule-find-perl/current/Find.pm (original)
+++ branches/upstream/libmodule-find-perl/current/Find.pm Sun Sep 20 22:23:26 2009
@@ -7,15 +7,18 @@
use File::Spec;
use File::Find;
-our $VERSION = '0.06';
+our $VERSION = '0.08';
our $basedir = undef;
our @results = ();
our $prune = 0;
+our $followMode = 1;
our @ISA = qw(Exporter);
our @EXPORT = qw(findsubmod findallmod usesub useall setmoduledirs);
+
+our @EXPORT_OK = qw(followsymlinks ignoresymlinks);
=head1 NAME
@@ -39,6 +42,15 @@
# set your own search dirs (uses @INC otherwise)
setmoduledirs(@INC, @plugindirs, $appdir);
+
+ # not exported by default
+ use Module::Find qw(ignoresymlinks followsymlinks);
+
+ # ignore symlinks
+ ignoresymlinks();
+
+ # follow symlinks (default)
+ followsymlinks();
=head1 DESCRIPTION
@@ -118,8 +130,7 @@
=item C<@found = useall Module::Category>
-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
+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> .
=cut
@@ -178,7 +189,8 @@
next unless -d $basedir;
find({wanted => \&_wanted,
- no_chdir => 1}, $basedir);
+ no_chdir => 1,
+ follow => $followMode}, $basedir);
}
# filter duplicate modules
@@ -189,6 +201,26 @@
return @results;
}
+=item C<ignoresymlinks()>
+
+Do not follow symlinks. This function is not exported by default.
+
+=cut
+
+sub ignoresymlinks {
+ $followMode = 0;
+}
+
+=item C<followsymlinks()>
+
+Follow symlinks (default behaviour). This function is not exported by default.
+
+=cut
+
+sub followsymlinks {
+ $followMode = 1;
+}
+
=back
=head1 HISTORY
@@ -225,9 +257,17 @@
=item 0.06, 2008-01-26
-Module::Find now won't report duplicate modules several times anymore (thanks to Uwe Všlker for the report and the patch)
+Module::Find now won't report duplicate modules several times anymore (thanks to Uwe Völker for the report and the patch)
+
+=item 0.07, 2009-09-08
+
+Fixed RT#38302: Module::Find now follows symlinks by default (can be disabled).
=back
+
+=head1 DEVELOPMENT NOTES
+
+Please report any bugs sing the CPAN RT system. The development repository for this module is hosted on GitHub: L<http://github.com/crenz/Module-Find/>.
=head1 SEE ALSO
Modified: branches/upstream/libmodule-find-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-find-perl/current/META.yml?rev=44463&op=diff
==============================================================================
--- branches/upstream/libmodule-find-perl/current/META.yml (original)
+++ branches/upstream/libmodule-find-perl/current/META.yml Sun Sep 20 22:23:26 2009
@@ -1,19 +1,21 @@
--- #YAML:1.0
name: Module-Find
-version: 0.06
+version: 0.08
+version_from: Find.pm
abstract: Find and use installed modules in a (sub)category
license: perl
author:
- Christian Renz <crenz at web42.com>
-generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
File::Find: 0
File::Spec: 0
Test::More: 0
+ perl: 5.006001
+recommends:
+ Test::Pod::Coverage 1.04
build_requires:
Test::Pod: 1.14
- Test::Pod::Coverage: 1.04
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libmodule-find-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-find-perl/current/README?rev=44463&op=diff
==============================================================================
--- branches/upstream/libmodule-find-perl/current/README (original)
+++ branches/upstream/libmodule-find-perl/current/README Sun Sep 20 22:23:26 2009
@@ -1,5 +1,5 @@
-Module::Find version 0.05
-=========================
+Module::Find
+============
Module::Find lets you find and use modules in categories. This can be very
useful for auto-detecting driver or plugin modules. You can differentiate
@@ -24,7 +24,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2004-2005 Christian Renz <crenz at web42.com>. All rights reserved.
+Copyright (C) 2004-2009 Christian Renz <crenz at 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.
More information about the Pkg-perl-cvs-commits
mailing list