diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-02-23 13:23:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-23 13:23:30 +0000 |
| commit | 97b85144d809e3866fb88a144a1ac0245a7ac16b (patch) | |
| tree | 6d3046cba84209b0ad19830edbca832bd4cc5fb6 /lib/Module/Build/Base.pm | |
| parent | 4cdcc1f2a15e3bb9b8629020ade3ee97fbcf8cc9 (diff) | |
| download | perl-97b85144d809e3866fb88a144a1ac0245a7ac16b.tar.gz | |
Temporarily reverse out change cd5cc49dbc0e5ee748252c2da8b435855908e6d2.
Diffstat (limited to 'lib/Module/Build/Base.pm')
| -rw-r--r-- | lib/Module/Build/Base.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm index f345274802..95dfbbd0bd 100644 --- a/lib/Module/Build/Base.pm +++ b/lib/Module/Build/Base.pm @@ -2817,7 +2817,7 @@ sub htmlify_pods { my ($name, $path) = File::Basename::fileparse($pods->{$pod}, file_qr('\.(?:pm|plx?|pod)$')); my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) ); - pop( @dirs ) if scalar(@dirs) && $dirs[-1] eq File::Spec->curdir; + pop( @dirs ) if $dirs[-1] eq File::Spec->curdir; my $fulldir = File::Spec->catfile($htmldir, @rootdirs, @dirs); my $outfile = File::Spec->catfile($fulldir, "${name}.html"); @@ -4061,7 +4061,7 @@ sub install_map { # Need to remove volume from $map{$_} using splitpath, or else # we'll create something crazy like C:\Foo\Bar\E:\Baz\Quux # VMS will always have the file separate than the path. - my ($volume, $path, $file) = File::Spec->splitpath( $map{$_}, 0 ); + my ($volume, $path, $file) = File::Spec->splitpath( $map{$_}, 1 ); # catdir needs a list of directories, or it will create something # crazy like volume:[Foo.Bar.volume.Baz.Quux] |