diff options
author | Pascal Terjan <pterjan@mandriva.org> | 2009-10-07 16:55:22 +0000 |
---|---|---|
committer | Pascal Terjan <pterjan@mandriva.org> | 2009-10-07 16:55:22 +0000 |
commit | 84b97eba7dd428d5d4cab85852d313c6ee294935 (patch) | |
tree | 1d2e3af635289b1e903416146c2ea7cb34f79cbb | |
parent | 3019f58e316b2109e92fe7b7e2a06b3a2d1fc53c (diff) | |
download | perl-MDK-Common-84b97eba7dd428d5d4cab85852d313c6ee294935.tar perl-MDK-Common-84b97eba7dd428d5d4cab85852d313c6ee294935.tar.gz perl-MDK-Common-84b97eba7dd428d5d4cab85852d313c6ee294935.tar.bz2 perl-MDK-Common-84b97eba7dd428d5d4cab85852d313c6ee294935.tar.xz perl-MDK-Common-84b97eba7dd428d5d4cab85852d313c6ee294935.zip |
Update comment
-rw-r--r-- | lib/MDK/Common/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm index c06294c..cacad59 100644 --- a/lib/MDK/Common/File.pm +++ b/lib/MDK/Common/File.pm @@ -272,7 +272,7 @@ sub glob_ { sub substInFile(&@) { my ($f, $file) = @_; - #- try hard to keep symlinks as they were set + #FIXME we should follow symlinks, and fail in case of loop if (-l $file) { my $targetfile = readlink $file; $file = $targetfile; |