From b1124ff0a4329772bd7fea18b2433d6fa39caa3d Mon Sep 17 00:00:00 2001 From: Aristotle Pagaltzis Date: Tue, 15 May 2012 18:59:31 +0200 Subject: [PATCH] switch installhtml from File::Spec to ::Functions The plan in the next commits is to use C 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. --- installhtml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/installhtml b/installhtml index 6375ced..d13c555 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,; -- 1.8.3.1