Ticket #820: dynopdocs.patch

File dynopdocs.patch, 1.3 KB (added by dukeleto, 5 years ago)

Attempt to fix the dynops issue. Close but not quite yet.

  • config/auto/perldoc.pm

    diff --git config/auto/perldoc.pm config/auto/perldoc.pm
    index 4377c4b..c73056c 100644
     
    2121use warnings; 
    2222 
    2323use File::Temp qw (tempfile ); 
     24use File::Spec::Functions; 
    2425use base qw(Parrot::Configure::Step); 
    2526use Parrot::Configure::Utils ':auto'; 
    2627 
     
    5253 
    5354E_NOTE 
    5455 
    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; 
    5859 
    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); 
    6165 
    6266    my $slash       = $conf->data->get('slash'); 
    6367    my $new_perldoc = $conf->data->get('new_perldoc'); 
    6468 
    65     foreach my $ops (@ops) { 
     69    foreach my $ops (@ops, @dynops) { 
    6670        my $pod = $ops; 
    6771        $pod =~ s/\.ops$/.pod/; 
    6872        if ( $new_perldoc ) {