From 916ae6acd4bd90da774693e0030f560e1af1b773 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Jul 2001 10:49:46 +0000
Subject: removed/renamed unused/seldom-used functions

---
 perl-install/commands.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index b34b7df33..01890dbfa 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -250,7 +250,7 @@ sub cp {
 	    }
 
 	    if (-d $src) {
-		-d $dest or mkdir $dest, mode($src) or die "mkdir: can't create directory $dest: $!\n";
+		-d $dest or mkdir $dest, (stat($src))[2] or die "mkdir: can't create directory $dest: $!\n";
 		&$cp(glob_($src), $dest);
 	    } elsif (-l $src) {
 		unless (symlink((readlink($src) || die "readlink failed: $!"), $dest)) {
@@ -263,7 +263,7 @@ sub cp {
 		open G, "> $dest" or $force or die "can't create $dest : $!\n";
 		local $_;
 		while (<F>) { print G $_ }
-		chmod mode($src), $dest;
+		chmod (stat($src))[2], $dest;
 	    }
 	}
     };
-- 
cgit v1.2.1