diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/commands.pm | 38 |
1 files changed, 2 insertions, 36 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index f3503eb10..3808d6848 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -222,42 +222,8 @@ sub ls { } } sub cp { - my ($force) = getopts(\@_, qw(f)); - @_ >= 2 or die "usage: cp [-f] <sources> <dest>\n(this cp does -Rl by default)\n"; - - my $cp; $cp = sub { - my $dest = pop @_; - - @_ or return; - @_ == 1 || -d $dest or die "cp: copying multiple files, but last argument ($dest) is not a directory\n"; - - foreach my $src (@_) { - my $dest = $dest; - -d $dest and $dest .= "/" . basename($src); - - if (-e $dest) { - $force ? unlink $dest : die "file $dest already exist\n"; - } - - if (-d $src) { - -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)) { - my $msg = "symlink: can't create symlink $dest: $!\n"; - $force ? warn $msg : die $msg; - } - } else { - local (*F, *G); - open F, $src or die "can't open $src for reading: $!\n"; - open G, "> $dest" or $force or die "can't create $dest : $!\n"; - local $_; - while (<F>) { print G $_ } - chmod((stat($src))[2], $dest); - } - } - }; - &$cp(@_); + @_ >= 2 or die "usage: cp <sources> <dest>\n(this cp does -Rfl by default)\n"; + cp_af(@_); } sub ps { |