summaryrefslogtreecommitdiffstats
path: root/MDK
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-05 10:19:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-05 10:19:45 +0000
commit17d1ff7aca81f8002dfcfb8974873a2cc0a16a86 (patch)
treedba6cadc8bda370271af9b86fad1bfb78c719cd8 /MDK
parentcbb62c62a7c4e21be2db3f87eaadb019e95f2232 (diff)
downloadperl-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.pm2
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 {