diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-17 10:58:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-17 10:58:27 +0000 |
| commit | 4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc (patch) | |
| tree | 70faa311fd0aa9b32ba3741938b9d29b168c43fa /MDK | |
| parent | e06a72d903af9d9387559c0123814f45f63e6c4f (diff) | |
| download | perl-MDK-Common-4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc.tar perl-MDK-Common-4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc.tar.gz perl-MDK-Common-4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc.tar.bz2 perl-MDK-Common-4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc.tar.xz perl-MDK-Common-4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc.zip | |
(cp_af): fix typo
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index 198fb1d..3d1238c 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -151,7 +151,7 @@ sub cp_af { if (-d $src) { -d $dest or mkdir $dest, (stat($src))[2] or die "mkdir: can't create directory $dest: $!\n"; - &$cp(glob_($src), $dest); + cp_af(glob_($src), $dest); } elsif (-l $src) { unless (symlink((readlink($src) || die "readlink failed: $!"), $dest)) { warn "symlink: can't create symlink $dest: $!\n"; |