Commit | Line | Data |
---|---|---|
97b07aaa EB |
1 | Fix Perl module Module::Pluggable such that it can find plugins that live in |
2 | symlinked directories. | |
3 | ||
4 | Patch borrowed/adapted from Nixpkgs. | |
5 | ||
6 | --- Module-Pluggable-5.2/lib/Module/Pluggable/Object.pm 2015-04-08 23:28:48.120164135 -0500 | |
7 | +++ Module-Pluggable-5.2/lib/Module/Pluggable/Object.pm 2015-04-08 23:30:27.032166704 -0500 | |
8 | @@ -164,7 +164,7 @@ | |
9 | my $sp = catdir($dir, (split /::/, $searchpath)); | |
10 | ||
11 | # if it doesn't exist or it's not a dir then skip it | |
12 | - next unless ( -e $sp && -d _ ); # Use the cached stat the second time | |
13 | + next unless ( -e $sp ); | |
14 | ||
15 | my @files = $self->find_files($sp); | |
16 | ||
17 | @@ -279,7 +279,7 @@ | |
18 | (my $path = $File::Find::name) =~ s#^\\./##; | |
19 | push @files, $path; | |
20 | } | |
21 | - }, $search_path ); | |
22 | + }, "$search_path/." ); | |
23 | } | |
24 | #chdir $cwd; | |
25 | return @files; |