diff --git config/auto/perldoc.pm config/auto/perldoc.pm
index 4377c4b..c73056c 100644
|
|
|
21 | 21 | use warnings; |
22 | 22 | |
23 | 23 | use File::Temp qw (tempfile ); |
| 24 | use File::Spec::Functions; |
24 | 25 | use base qw(Parrot::Configure::Step); |
25 | 26 | use Parrot::Configure::Utils ':auto'; |
26 | 27 | |
… |
… |
|
52 | 53 | |
53 | 54 | E_NOTE |
54 | 55 | |
55 | | opendir OPS, 'src/ops' or die "opendir ops: $!"; |
56 | | my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS; |
57 | | closedir OPS; |
| 56 | opendir my $ops_fh, catdir(qw/src ops/) or die "opendir ops: $!"; |
| 57 | my @ops = sort grep { !/^\./ && /\.ops$/ } readdir $ops_fh; |
| 58 | closedir $ops_fh; |
58 | 59 | |
59 | | my $TEMP_pod = join q{ } => |
60 | | map { my $t = $_; $t =~ s/\.ops$/.pod/; "ops/$t" } @ops; |
| 60 | opendir my $dynops_fh, catdir(qw/src dynoplibs/) or die "opendir dynoplibs: $!"; |
| 61 | my @dynops = map { "dyn_$_" } sort grep { !/^\./ && /\.ops$/ } readdir $dynops_fh; |
| 62 | closedir $dynops_fh; |
| 63 | |
| 64 | my $TEMP_pod = join ' ', map { s/\.ops$/.pod/; "ops/$_" } (@ops, @dynops); |
61 | 65 | |
62 | 66 | my $slash = $conf->data->get('slash'); |
63 | 67 | my $new_perldoc = $conf->data->get('new_perldoc'); |
64 | 68 | |
65 | | foreach my $ops (@ops) { |
| 69 | foreach my $ops (@ops, @dynops) { |
66 | 70 | my $pod = $ops; |
67 | 71 | $pod =~ s/\.ops$/.pod/; |
68 | 72 | if ( $new_perldoc ) { |