" via RT" <bug-Tk-Pod@rt.cpan.org> wrote:
Show quoted text>
> This message about Tk-Pod was sent to you by MAREKR <MAREKR@cpan.org> via rt.cpan.org
>
> Full context and any attached attachments can be found at:
> <URL:
https://rt.cpan.org/Ticket/Display.html?id=6301 >
>
> In our development environment we have a directory structure that
> contains symlinks to directories. tkpod (i.e. the pod tree browser)
> does not find perl modules which are located below such a linked path.
> Example:
> /usr/local/lib/perl/MyClass@ -> /opt/local/share/lib/perl/MyClass
> and there is:
> /opt/local/share/lib/perl/MyClass/MySth.pm
> and $PERL5LIB = /usr/local/lib/perl
> ...then tkpod does not find MyClass::MySth
>
> Can you add "follow symlinks" on directories?
>
Does this patch wokrk for you?
Index: Pod/FindPods.pm
===================================================================
RCS file: /cvsroot/srezic/Tk-Pod/Pod/FindPods.pm,v
retrieving revision 1.7
diff -u -p -r1.7 FindPods.pm
--- Pod/FindPods.pm 19 Apr 2004 10:56:23 -0000 1.7
+++ Pod/FindPods.pm 14 May 2004 12:52:51 -0000
@@ -226,13 +226,15 @@ sub pod_find {
}
};
+ my %opts = (follow => 1, follow_skip => 2);
+
foreach my $inc (@dirs) {
$curr_dir = $inc;
- find($wanted, $inc);
+ find({ %opts, wanted => $wanted }, $inc);
}
foreach my $inc (@script_dirs) {
- find($wanted_scripts, $inc);
+ find({ %opts, wanted => $wanted_scripts }, $inc);
}
$self->{pods} = \%pods;
Regards,
Slaven
--
__o Slaven Rezic
_`\<,_ slaven <at> rezic <dot> de
__(_)/ (_)____
Show quoted text______________________________________________________________________________
