From 2df9265e9009dc9336f8b83d62f62cb2ba69cdc8 Mon Sep 17 00:00:00 2001 From: David Golden Date: Thu, 21 Jul 2011 17:06:48 -0400 Subject: Update Module::Build to 0.39_01 0.39_01 - Thu Jul 21 16:48:48 EDT 2011 [BUG FIXES] - Fixed bug with a nested directory named 'share' inside a ShareDir (RT#68585) [David Golden] - Fixed failing tilde.t when run under UID without passwd entry (RT#67893) [Dominic Hargreaves] [DOCUMENTATION] - Fixed typo in Module::Build (RT#67008) [David Golden] [OTHER] - Pod to HTML internals changed to support new Pod::Html work in the Perl core --- cpan/Module-Build/lib/Module/Build/Base.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'cpan/Module-Build/lib/Module/Build/Base.pm') diff --git a/cpan/Module-Build/lib/Module/Build/Base.pm b/cpan/Module-Build/lib/Module/Build/Base.pm index fba916ad26..a29f500062 100644 --- a/cpan/Module-Build/lib/Module/Build/Base.pm +++ b/cpan/Module-Build/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') ); } -- cgit v1.2.1