Skip to content

Commit 126b845

Browse files
mohawk2mohawk2
committed
Stop inheriting from File::Spec
1 parent fead8dc commit 126b845

File tree

10 files changed

+93
-110
lines changed

10 files changed

+93
-110
lines changed

‎lib/ExtUtils/Liblist.pm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ our $VERSION = '7.05_07';
66

77
use File::Spec;
88
require ExtUtils::Liblist::Kid;
9-
our @ISA = qw(ExtUtils::Liblist::Kid File::Spec);
9+
our @ISA = qw(ExtUtils::Liblist::Kid);
1010

1111
# Backwards compatibility with old interface.
1212
sub ext {

‎lib/ExtUtils/Liblist/Kid.pm‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -78,7 +78,7 @@ sub _unix_os2_ext {
7878
}
7979
unless ( File::Spec->file_name_is_absolute( $thislib ) ) {
8080
warn "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
81-
$thislib = $self->catdir( $pwd, $thislib );
81+
$thislib = File::Spec->catdir( $pwd, $thislib );
8282
}
8383
push( @searchpath, $thislib );
8484
push( @extralibs, "$ptype$thislib" );
@@ -318,7 +318,7 @@ sub _win32_ext {
318318
elsif ( -d ) {
319319
unless ( File::Spec->file_name_is_absolute( $_ ) ) {
320320
warn "Warning: '$thislib' changed to '-L$pwd/$_'\n";
321-
$_ = $self->catdir( $pwd, $_ );
321+
$_ = File::Spec->catdir( $pwd, $_ );
322322
}
323323
push( @searchpath, $_ );
324324
next;
@@ -475,7 +475,7 @@ sub _vms_ext {
475475
if ( lc $type eq '/share' ) { $locspec .= $Config{'exe_ext'}; }
476476
elsif ( lc $type eq '/library' ) { $locspec .= $Config{'lib_ext'}; }
477477
else { $locspec .= $Config{'obj_ext'}; }
478-
$locspec = $self->catfile( $self->{PERL_SRC}, $locspec );
478+
$locspec = File::Spec->catfile( $self->{PERL_SRC}, $locspec );
479479
$lib = "$locspec$type" if -e $locspec;
480480
}
481481
}
@@ -539,7 +539,7 @@ sub _vms_ext {
539539
$dir = VMS::Filespec::vmspath( $dir );
540540
}
541541
else {
542-
$dir = $self->catdir( $cwd, $dir );
542+
$dir = File::Spec->catdir( $cwd, $dir );
543543
}
544544
}
545545
@dirs = grep { length( $_ ) } @dirs;

‎lib/ExtUtils/MM_Any.pm‎

Lines changed: 28 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,6 @@ our $VERSION = '7.05_07';
66
use Carp;
77
use File::Spec;
88
use File::Basename;
9-
BEGIN { our @ISA = qw(File::Spec); }
109

1110
# We need $Verbose
1211
use ExtUtils::MakeMaker qw($Verbose write_file_via_tmp neatvalue);
@@ -16,9 +15,9 @@ use ExtUtils::MakeMaker::Config;
1615

1716
# So we don't have to keep calling the methods over and over again,
1817
# we have these globals to cache the values. Faster and shrtr.
19-
my $Curdir = __PACKAGE__->curdir;
20-
my $Rootdir = __PACKAGE__->rootdir;
21-
my $Updir = __PACKAGE__->updir;
18+
my $Curdir = File::Spec->curdir;
19+
my $Rootdir = File::Spec->rootdir;
20+
my $Updir = File::Spec->updir;
2221

2322
my $METASPEC_URL = 'https://metacpan.org/pod/CPAN::Meta::Spec';
2423
my $METASPEC_V = 2;
@@ -207,7 +206,7 @@ Returns true if C<<$self->make>> is the given type; possibilities are:
207206

208207
sub is_make_type {
209208
my($self, $type) = @_;
210-
(undef, undef, my $make_basename) = $self->splitpath($self->make);
209+
(undef, undef, my $make_basename) = File::Spec->splitpath($self->make);
211210
return 1 if $make_basename =~ /\b$type\b/i; # executable's filename
212211
return 0 if $make_basename =~ /\b(dmake|nmake)\b/i; # Never fall through for dmake/nmake
213212
# now have to run with "-v" and guess
@@ -669,7 +668,7 @@ sub blibdirs_target {
669668
my ($v, $d, $f) = File::Spec->splitpath($ext);
670669
my @d = File::Spec->splitdir($d);
671670
shift @d if $d[0] eq 'lib';
672-
push @dirs, $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
671+
push @dirs, File::Spec->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
673672
}
674673
}
675674

@@ -746,8 +745,8 @@ clean :: clean_subdirs
746745
$(BASEEXT).exp $(BASEEXT).x
747746
]);
748747

749-
push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'));
750-
push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld'));
748+
push(@files, File::Spec->catfile('$(INST_ARCHAUTODIR)','extralibs.all'));
749+
push(@files, File::Spec->catfile('$(INST_ARCHAUTODIR)','extralibs.ld'));
751750

752751
# core files
753752
if ($^O eq 'vos') {
@@ -1913,8 +1912,8 @@ to XS code. Those are handled in init_xs.
19131912
sub init_INST {
19141913
my($self) = shift;
19151914

1916-
$self->{INST_ARCHLIB} ||= $self->catdir($Curdir,"blib","arch");
1917-
$self->{INST_BIN} ||= $self->catdir($Curdir,'blib','bin');
1915+
$self->{INST_ARCHLIB} ||= File::Spec->catdir($Curdir,"blib","arch");
1916+
$self->{INST_BIN} ||= File::Spec->catdir($Curdir,'blib','bin');
19181917

19191918
# INST_LIB typically pre-set if building an extension after
19201919
# perl has been built and installed. Setting INST_LIB allows
@@ -1923,22 +1922,22 @@ sub init_INST {
19231922
if ($self->{PERL_CORE}) {
19241923
$self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
19251924
} else {
1926-
$self->{INST_LIB} = $self->catdir($Curdir,"blib","lib");
1925+
$self->{INST_LIB} = File::Spec->catdir($Curdir,"blib","lib");
19271926
}
19281927
}
19291928

19301929
my @parentdir = split(/::/, $self->{PARENT_NAME});
1931-
$self->{INST_LIBDIR} = $self->catdir('$(INST_LIB)', @parentdir);
1932-
$self->{INST_ARCHLIBDIR} = $self->catdir('$(INST_ARCHLIB)', @parentdir);
1933-
$self->{INST_AUTODIR} = $self->catdir('$(INST_LIB)', 'auto',
1930+
$self->{INST_LIBDIR} = File::Spec->catdir('$(INST_LIB)', @parentdir);
1931+
$self->{INST_ARCHLIBDIR} = File::Spec->catdir('$(INST_ARCHLIB)', @parentdir);
1932+
$self->{INST_AUTODIR} = File::Spec->catdir('$(INST_LIB)', 'auto',
19341933
'$(FULLEXT)');
1935-
$self->{INST_ARCHAUTODIR} = $self->catdir('$(INST_ARCHLIB)', 'auto',
1934+
$self->{INST_ARCHAUTODIR} = File::Spec->catdir('$(INST_ARCHLIB)', 'auto',
19361935
'$(FULLEXT)');
19371936

1938-
$self->{INST_SCRIPT} ||= $self->catdir($Curdir,'blib','script');
1937+
$self->{INST_SCRIPT} ||= File::Spec->catdir($Curdir,'blib','script');
19391938

1940-
$self->{INST_MAN1DIR} ||= $self->catdir($Curdir,'blib','man1');
1941-
$self->{INST_MAN3DIR} ||= $self->catdir($Curdir,'blib','man3');
1939+
$self->{INST_MAN1DIR} ||= File::Spec->catdir($Curdir,'blib','man1');
1940+
$self->{INST_MAN3DIR} ||= File::Spec->catdir($Curdir,'blib','man3');
19421941

19431942
return 1;
19441943
}
@@ -2148,7 +2147,7 @@ sub init_INSTALL_from_PREFIX {
21482147

21492148
if( $var =~ /arch/ ) {
21502149
$self->{$Installvar} ||=
2151-
$self->catdir($self->{LIB}, $Config{archname});
2150+
File::Spec->catdir($self->{LIB}, $Config{archname});
21522151
}
21532152
else {
21542153
$self->{$Installvar} ||= $self->{LIB};
@@ -2215,7 +2214,7 @@ sub init_INSTALL_from_INSTALL_BASE {
22152214
my $key = "INSTALL".$dir.$uc_thing;
22162215

22172216
$install{$key} ||=
2218-
$self->catdir('$(INSTALL_BASE)', @{$map{$thing}});
2217+
File::Spec->catdir('$(INSTALL_BASE)', @{$map{$thing}});
22192218
}
22202219
}
22212220

@@ -2736,11 +2735,11 @@ sub arch_check {
27362735

27372736
return 1 if $self->{PERL_SRC};
27382737

2739-
my($pvol, $pthinks) = $self->splitpath($pconfig);
2740-
my($cvol, $cthinks) = $self->splitpath($cconfig);
2738+
my($pvol, $pthinks) = File::Spec->splitpath($pconfig);
2739+
my($cvol, $cthinks) = File::Spec->splitpath($cconfig);
27412740

2742-
$pthinks = $self->canonpath($pthinks);
2743-
$cthinks = $self->canonpath($cthinks);
2741+
$pthinks = File::Spec->canonpath($pthinks);
2742+
$cthinks = File::Spec->canonpath($cthinks);
27442743

27452744
my $ret = 1;
27462745
if ($pthinks ne $cthinks) {
@@ -2749,7 +2748,7 @@ sub arch_check {
27492748

27502749
$ret = 0;
27512750

2752-
my $arch = (grep length, $self->splitdir($pthinks))[-1];
2751+
my $arch = (grep length, File::Spec->splitdir($pthinks))[-1];
27532752

27542753
print <<END unless $self->{UNINSTALLED_PERL};
27552754
Your perl and your Config.pm seem to have different ideas about the
@@ -2782,7 +2781,7 @@ canonicalized. This override fixes that bug.
27822781

27832782
sub catfile {
27842783
my $self = shift;
2785-
return $self->canonpath($self->SUPER::catfile(@_));
2784+
return File::Spec->canonpath($self->SUPER::catfile(@_));
27862785
}
27872786

27882787

@@ -2895,9 +2894,9 @@ installation.
28952894

28962895
sub libscan {
28972896
my($self,$path) = @_;
2898-
my($dirs,$file) = ($self->splitpath($path))[1,2];
2897+
my($dirs,$file) = (File::Spec->splitpath($path))[1,2];
28992898
return '' if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/,
2900-
$self->splitdir($dirs), $file;
2899+
File::Spec->splitdir($dirs), $file;
29012900

29022901
return $path;
29032902
}
@@ -3025,7 +3024,7 @@ Used by perldepend() in MM_Unix and MM_VMS via _perl_header_files_fragment()
30253024
sub _perl_header_files {
30263025
my $self = shift;
30273026

3028-
my $header_dir = $self->{PERL_SRC} || $ENV{PERL_SRC} || $self->catdir($Config{archlibexp}, 'CORE');
3027+
my $header_dir = $self->{PERL_SRC} || $ENV{PERL_SRC} || File::Spec->catdir($Config{archlibexp}, 'CORE');
30293028
opendir my $dh, $header_dir
30303029
or die "Failed to opendir '$header_dir' to find header files: $!";
30313030

‎lib/ExtUtils/MM_Unix.pm‎

Lines changed: 15 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@ use Carp;
88
use ExtUtils::MakeMaker::Config;
99
use File::Basename qw(basename dirname);
1010
use DirHandle;
11+
use File::Spec;
1112

1213
our %Config_Override;
1314

@@ -97,9 +98,9 @@ something that used to be in here, look in MM_Any.
9798

9899
# So we don't have to keep calling the methods over and over again,
99100
# we have these globals to cache the values. Faster and shrtr.
100-
my $Curdir = __PACKAGE__->curdir;
101-
my $Rootdir = __PACKAGE__->rootdir;
102-
my $Updir = __PACKAGE__->updir;
101+
my $Curdir = File::Spec->curdir;
102+
my $Rootdir = File::Spec->rootdir;
103+
my $Updir = File::Spec->updir;
103104

104105

105106
=head2 Methods
@@ -1104,10 +1105,10 @@ WARNING
11041105
foreach my $dir (@$dirs){
11051106
next unless defined $dir; # $self->{PERL_SRC} may be undefined
11061107
my ($abs, $val);
1107-
if ($self->file_name_is_absolute($name)) { # /foo/bar
1108+
if (File::Spec->file_name_is_absolute($name)) { # /foo/bar
11081109
$abs = $name;
1109-
} elsif ($self->canonpath($name) eq
1110-
$self->canonpath(basename($name))) { # foo
1110+
} elsif (File::Spec->canonpath($name) eq
1111+
File::Spec->canonpath(basename($name))) { # foo
11111112
$abs = File::Spec->catfile($dir, $name);
11121113
} else { # foo/bar
11131114
$abs = File::Spec->catfile($Curdir, $name);
@@ -1239,7 +1240,7 @@ sub _fixin_replace_shebang {
12391240
}
12401241
else {
12411242
my (@absdirs)
1242-
= reverse grep { $self->file_name_is_absolute($_) } $self->path;
1243+
= reverse grep { File::Spec->file_name_is_absolute($_) } File::Spec->path;
12431244
$interpreter = '';
12441245

12451246
foreach my $dir (@absdirs) {
@@ -1960,21 +1961,21 @@ sub init_PERL {
19601961
my($self) = shift;
19611962

19621963
my @defpath = ();
1963-
foreach my $component ($self->{PERL_SRC}, $self->path(),
1964+
foreach my $component ($self->{PERL_SRC}, File::Spec->path(),
19641965
$Config{binexp})
19651966
{
19661967
push @defpath, $component if defined $component;
19671968
}
19681969

19691970
# Build up a set of file names (not command names).
1970-
my $thisperl = $self->canonpath($^X);
1971+
my $thisperl = File::Spec->canonpath($^X);
19711972
$thisperl .= $Config{exe_ext} unless
19721973
# VMS might have a file version # at the end
19731974
$Is{VMS} ? $thisperl =~ m/$Config{exe_ext}(;\d+)?$/i
19741975
: $thisperl =~ m/$Config{exe_ext}$/i;
19751976

19761977
# We need a relative path to perl when in the core.
1977-
$thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
1978+
$thisperl = File::Spec->abs2rel($thisperl) if $self->{PERL_CORE};
19781979

19791980
my @perls = ($thisperl);
19801981
push @perls, map { "$_$Config{exe_ext}" }
@@ -2027,11 +2028,11 @@ sub init_PERL {
20272028
# sometimes.
20282029
$self->{ABSPERL} = $self->{PERL};
20292030
$has_mcr = $self->{ABSPERL} =~ s/^MCR\s*//;
2030-
if( $self->file_name_is_absolute($self->{ABSPERL}) ) {
2031+
if( File::Spec->file_name_is_absolute($self->{ABSPERL}) ) {
20312032
$self->{ABSPERL} = '$(PERL)';
20322033
}
20332034
else {
2034-
$self->{ABSPERL} = $self->rel2abs($self->{ABSPERL});
2035+
$self->{ABSPERL} = File::Spec->rel2abs($self->{ABSPERL});
20352036

20362037
# Quote the perl command if it contains whitespace
20372038
$self->{ABSPERL} = $self->quote_literal($self->{ABSPERL})
@@ -3415,8 +3416,8 @@ sub static_lib {
34153416
my ($v, $d, $f) = File::Spec->splitpath($ext);
34163417
my @d = File::Spec->splitdir($d);
34173418
shift @d if $d[0] eq 'lib';
3418-
my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
3419-
my $instfile = $self->catfile($instdir, "$f\$(LIB_EXT)");
3419+
my $instdir = File::Spec->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
3420+
my $instfile = File::Spec->catfile($instdir, "$f\$(LIB_EXT)");
34203421
my $objfile = "$ext\$(OBJ_EXT)";
34213422
push @libs, [ $objfile, $instfile, $instdir ];
34223423
}

0 commit comments

Comments
 (0)