Attempt to make dynoplibs POD get installed

ashgti · Sep 15, 2009 · f12eb4a · f12eb4a
1 parent d8728b8
commit f12eb4a
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/config/auto/perldoc.pm b/config/auto/perldoc.pm
@@ -21,6 +21,7 @@ use strict;
 use warnings;
 
 use File::Temp qw (tempfile );
+use File::Spec::Functions;
 use base qw(Parrot::Configure::Step);
 use Parrot::Configure::Utils ':auto';
 
@@ -52,17 +53,21 @@ sub runstep {
 
 E_NOTE
 
-    opendir OPS, 'src/ops' or die "opendir ops: $!";
-    my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
-    closedir OPS;
+    opendir my $ops_fh, catdir(qw/src ops/) or die "opendir ops: $!";
+    my @ops = sort grep { !/^\./ && /\.ops$/ } readdir $ops_fh;
+    closedir $ops_fh;
+
+    opendir my $dynops_fh, catdir(qw/src dynoplibs/) or die "opendir dynoplibs: $!";
+    my @dynops = sort grep { !/^\./ && /\.ops$/ } readdir $dynops_fh;
+    closedir $dynops_fh;
 
     my $TEMP_pod = join q{ } =>
         map { my $t = $_; $t =~ s/\.ops$/.pod/; "ops/$t" } @ops;
 
     my $slash       = $conf->data->get('slash');
     my $new_perldoc = $conf->data->get('new_perldoc');
 
-    foreach my $ops (@ops) {
+    foreach my $ops (@ops, @dynops) {
         my $pod = $ops;
         $pod =~ s/\.ops$/.pod/;
         if ( $new_perldoc ) {