diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 10:19:45 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 10:19:45 +0000 |
commit | 17d1ff7aca81f8002dfcfb8974873a2cc0a16a86 (patch) | |
tree | dba6cadc8bda370271af9b86fad1bfb78c719cd8 /MDK | |
parent | cbb62c62a7c4e21be2db3f87eaadb019e95f2232 (diff) | |
download | perl-MDK-Common-17d1ff7aca81f8002dfcfb8974873a2cc0a16a86.tar perl-MDK-Common-17d1ff7aca81f8002dfcfb8974873a2cc0a16a86.tar.gz perl-MDK-Common-17d1ff7aca81f8002dfcfb8974873a2cc0a16a86.tar.bz2 perl-MDK-Common-17d1ff7aca81f8002dfcfb8974873a2cc0a16a86.tar.xz perl-MDK-Common-17d1ff7aca81f8002dfcfb8974873a2cc0a16a86.zip |
perl_checker fix
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 607b881..c596ad5 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -178,7 +178,7 @@ sub cp_with_option { -d $dest or mkdir $dest, (stat($src))[2] or die "mkdir: can't create directory $dest: $!\n"; cp_af(glob_($src), $dest); } elsif (-l $src && $keep_symlinks) { - unless (symlink((readlink($src) || die "readlink failed: $!"), $dest)) { + unless (symlink(readlink($src) || die("readlink failed: $!"), $dest)) { warn "symlink: can't create symlink $dest: $!\n"; } } else { |