summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 10:49:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 10:49:46 +0000
commit916ae6acd4bd90da774693e0030f560e1af1b773 (patch)
tree39080a0128dd3d34cf9b92c0ab7d7f421d950a44 /perl-install/commands.pm
parent7e5672eb837597a08dc886dc022f704be9b97665 (diff)
downloaddrakx-916ae6acd4bd90da774693e0030f560e1af1b773.tar
drakx-916ae6acd4bd90da774693e0030f560e1af1b773.tar.gz
drakx-916ae6acd4bd90da774693e0030f560e1af1b773.tar.bz2
drakx-916ae6acd4bd90da774693e0030f560e1af1b773.tar.xz
drakx-916ae6acd4bd90da774693e0030f560e1af1b773.zip
removed/renamed unused/seldom-used functions
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm4
1 files changed, 2 insertions, 2 deletions
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;
}
}
};