Index: config/init/defaults.pm =================================================================== --- config/init/defaults.pm (revision 48682) +++ config/init/defaults.pm (working copy) @@ -53,6 +53,17 @@ # # This is a multi-stage process. + # Some checks (e.g. auto::pod2man) search for perl executables in scriptdirexp, but these may + # have a suffix (and no suffixless alias), e.g. under perlblew: + # $ readlink $(which perl) + # /home/v-perlbrew/perl5/perlbrew/perls/current/bin/perl5.13.2 + # $ file /home/v-perlbrew/perl5/perlbrew/perls/current/bin/pod2man + # ERROR: cannot open `/home/v-perlbrew/perl5/perlbrew/perls/current/bin/pod2man' (No such file or directory) + # $ file /home/v-perlbrew/perl5/perlbrew/perls/current/bin/pod2man5.13.2 + # /home/v-perlbrew/perl5/perlbrew/perls/current/bin/pod2man5.13.2: a /home/v-perlbrew/perl5/perlbrew script text executable + my $perl_bin_suffix = $Config{versiononly} ? $Config{version} : ''; + $conf->data->set( qq|perl_bin_suffix_provisional| => $perl_bin_suffix ); + # Stage 1: foreach my $orig ( qw| archname Index: config/auto/pod2man.pm =================================================================== --- config/auto/pod2man.pm (revision 48682) +++ config/auto/pod2man.pm (working copy) @@ -34,7 +34,9 @@ sub runstep { my ( $self, $conf ) = @_; - my $cmd = $conf->data->get('scriptdirexp_provisional') . q{/pod2man}; + my $slash = $conf->data->get('slash'); + my $suffix = $conf->data->get('perl_bin_suffix_provisional'); + my $cmd = $conf->data->get('scriptdirexp_provisional') . $slash . q{pod2man} . $suffix; my $content = capture_output("$cmd docs/parrot.pod") || undef; return 1 unless defined( $self->_initial_content_check($conf, $content) ); Index: config/auto/perldoc.pm =================================================================== --- config/auto/perldoc.pm (revision 48682) +++ config/auto/perldoc.pm (working copy) @@ -37,7 +37,8 @@ my ( $self, $conf ) = @_; my $slash = $conf->data->get('slash'); - my $cmd = $conf->data->get('scriptdirexp_provisional') . $slash . q{perldoc}; + my $suffix = $conf->data->get('perl_bin_suffix_provisional'); + my $cmd = $conf->data->get('scriptdirexp_provisional') . $slash . q{perldoc} . $suffix; my ( $fh, $filename ) = tempfile( UNLINK => 1 ); my $content = capture_output("$cmd -ud $filename perldoc") || undef;