From: Dave Rolsky <autarch@urth.org>
Date: Mon, 19 Nov 2001 00:07:28 +0000 (-0600)
Subject: ExtUtils::Install - use File::Spec instead of ExtUtils::MakeMaker
X-Git-Tag: accepted/trunk/20130322.191538~29374
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3ac85e8f57fa37facbaaa9506ea6804067190018;p=platform%2Fupstream%2Fperl.git

ExtUtils::Install - use File::Spec instead of ExtUtils::MakeMaker
Message-ID: <Pine.LNX.4.40.0111190006040.4213-100000@urth.org>

p4raw-id: //depot/perl@13089
---

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 14a6e08..146415c 100644
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -24,7 +24,7 @@ use File::Spec;
 
 sub install_rooted_file {
     if (defined $INSTALL_ROOT) {
-	MY->catfile($INSTALL_ROOT, $_[0]);
+	File::Spec->catfile($INSTALL_ROOT, $_[0]);
     } else {
 	$_[0];
     }
@@ -32,7 +32,7 @@ sub install_rooted_file {
 
 sub install_rooted_dir {
     if (defined $INSTALL_ROOT) {
-	MY->catdir($INSTALL_ROOT, $_[0]);
+	File::Spec->catdir($INSTALL_ROOT, $_[0]);
     } else {
 	$_[0];
     }
@@ -52,13 +52,13 @@ sub install {
     $nonono  ||= 0;
 
     use Cwd qw(cwd);
-    use ExtUtils::MakeMaker; # to implement a MY class
     use ExtUtils::Packlist;
     use File::Basename qw(dirname);
     use File::Copy qw(copy);
     use File::Find qw(find);
     use File::Path qw(mkpath);
     use File::Compare qw(compare);
+    use File::Spec;
 
     my(%hash) = %$hash;
     my(%pack, $dir, $warn_permissions);
@@ -119,8 +119,8 @@ sub install {
                          $atime,$mtime,$ctime,$blksize,$blocks) = stat;
 	    return unless -f _;
 	    return if $_ eq ".exists";
-	    my $targetdir  = MY->catdir($targetroot, $File::Find::dir);
-	    my $targetfile = MY->catfile($targetdir, $_);
+	    my $targetdir  = File::Spec->catdir($targetroot, $File::Find::dir);
+	    my $targetfile = File::Spec->catfile($targetdir, $_);
 
 	    my $diff = 0;
 	    if ( -f $targetfile && -s _ == $size) {
@@ -231,7 +231,7 @@ sub inc_uninstall {
 						  sitelibexp)}) {
 	next if $dir eq ".";
 	next if $seen_dir{$dir}++;
-	my($targetfile) = MY->catfile($dir,$libdir,$file);
+	my($targetfile) = File::Spec->catfile($dir,$libdir,$file);
 	next unless -f $targetfile;
 
 	# The reason why we compare file's contents is, that we cannot