diff options
| author | Aristotle Pagaltzis <pagaltzis@gmx.de> | 2012-05-15 18:59:31 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-26 11:50:15 -0700 |
| commit | b1124ff0a4329772bd7fea18b2433d6fa39caa3d (patch) | |
| tree | a40166ddd110d92f3f97da7b759342e48a446c74 /installhtml | |
| parent | 1e2715d22e66475ff329a94f2876e71a68005a1b (diff) | |
| download | perl-b1124ff0a4329772bd7fea18b2433d6fa39caa3d.tar.gz | |
switch installhtml from File::Spec to ::Functions
The plan in the next commits is to use C<no_upwards> from File:::Spec to
be explicit about intent -- imported using File::Spec::Function to avoid
the ugly File::Spec class method calling convention. This patch would be
frivolous otherwise, but given the occasion we might as well make things
consistent.
Diffstat (limited to 'installhtml')
| -rw-r--r-- | installhtml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/installhtml b/installhtml index 6375ced822..d13c555585 100644 --- a/installhtml +++ b/installhtml @@ -4,7 +4,7 @@ use strict; use Config; # for config options in the makefile -use File::Spec; +use File::Spec::Functions qw(rel2abs); use Getopt::Long; # for command-line parsing use Cwd; use Pod::Html 'anchorify'; @@ -362,8 +362,8 @@ sub split_on_item { print "splitting files by item.\n" if $verbose && $#splititem >= 0; $pwd = getcwd(); - my $splitter = File::Spec->rel2abs("$splitpod/splitpod", $pwd); - my $perl = File::Spec->rel2abs($^X, $pwd); + my $splitter = rel2abs("$splitpod/splitpod", $pwd); + my $perl = rel2abs($^X, $pwd); foreach my $pod (@splititem) { # figure out the directory to split into $pod =~ s,^([^/]*)$,/$1,; |