r44463 - in /branches/upstream/libmodule-find-perl/current: Find.pm META.yml README

[jawnsy-guest at users.alioth.debian.org]

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.