This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
switch installhtml from File::Spec to ::Functions
authorAristotle Pagaltzis <pagaltzis@gmx.de>
Tue, 15 May 2012 16:59:31 +0000 (18:59 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 26 May 2012 18:50:15 +0000 (11:50 -0700)
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.

installhtml

index 6375ced..d13c555 100644 (file)
@@ -4,7 +4,7 @@
 
 use strict;
 use Config;            # for config options in the makefile
 
 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';
 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();
 
     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,;
     foreach my $pod (@splititem) {
        # figure out the directory to split into
        $pod      =~ s,^([^/]*)$,/$1,;