diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Base.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/Base.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Base.pm b/Master/tlpkg/tlperl/lib/Module/Build/Base.pm index fba916ad267..a29f500062c 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Base.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Base.pm @@ -4,7 +4,7 @@ package Module::Build::Base; use strict; use vars qw($VERSION); -$VERSION = '0.3800'; +$VERSION = '0.39_01'; $VERSION = eval $VERSION; BEGIN { require 5.00503 } @@ -2940,7 +2940,7 @@ sub _share_dir_map { my %files; for my $dir ( @$list ) { for my $f ( @{ $self->rscan_dir( $dir, sub {-f} )} ) { - $f =~ s{\A.*\Q$dir\E/}{}; + $f =~ s{\A.*?\Q$dir\E/}{}; $files{"$dir/$f"} = "$prefix/$f"; } } @@ -3428,7 +3428,6 @@ sub htmlify_pods { $title .= " - $abstract" if $abstract; my @opts = ( - '--flush', "--title=$title", "--podpath=$podpath", "--infile=$infile", @@ -3437,7 +3436,13 @@ sub htmlify_pods { "--htmlroot=$path2root", ); - if ( eval{Pod::Html->VERSION(1.03)} ) { + unless ( eval{Pod::Html->VERSION(1.12)} ) { + push( @opts, ('--flush') ); # caching removed in 1.12 + } + + if ( eval{Pod::Html->VERSION(1.12)} ) { + push( @opts, ('--header', '--backlink') ); + } elsif ( eval{Pod::Html->VERSION(1.03)} ) { push( @opts, ('--header', '--backlink=Back to Top') ); } |