Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Resolve test failures on NetBSD regarding pod2html

This will probably resolve RT #63003
  • Loading branch information...
commit d30f6a1589c84038a9c03d01891ab557c1137699 1 parent b39b7ac
@bingos bingos authored
Showing with 8 additions and 5 deletions.
  1. +8 −5 lib/Module/Build/Base.pm
View
13 lib/Module/Build/Base.pm
@@ -3317,8 +3317,7 @@ sub htmlify_pods {
( $self->install_sets('core', 'lib'), # lib
$self->install_sets('core', 'bin'), # bin
$self->install_sets('site', 'lib'), # site/lib
- ),File::Spec->rel2abs($self->blib)
- );
+ ) ), File::Spec->rel2abs($self->blib);
my $podpath = join(":", map { tr,:\\,|/,; $_ } @podpath);
@@ -3403,9 +3402,13 @@ sub htmlify_pods {
}
$self->log_verbose("P::H::pod2html @opts\n");
- eval { Pod::Html::pod2html(@opts); 1 }
- or $self->log_warn("[$htmltool] pod2html( " .
- join(", ", map { "q{$_}" } @opts) . ") failed: $@");
+ {
+ my $orig = Cwd::getcwd();
+ eval { Pod::Html::pod2html(@opts); 1 }
+ or $self->log_warn("[$htmltool] pod2html( " .
+ join(", ", map { "q{$_}" } @opts) . ") failed: $@");
+ chdir($orig);
+ }
}
# We now have to cleanup the resulting html file
if ( ! -r $tmpfile ) {
Please sign in to comment.
Something went wrong with that request. Please try again.