From 3019f58e316b2109e92fe7b7e2a06b3a2d1fc53c Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Wed, 7 Oct 2009 16:50:36 +0000 Subject: substInFile: do not unlink the symlink to recreate it later to the same target --- lib/MDK/Common/File.pm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'lib') diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm index cdcfcd9..c06294c 100644 --- a/lib/MDK/Common/File.pm +++ b/lib/MDK/Common/File.pm @@ -272,12 +272,9 @@ sub glob_ { sub substInFile(&@) { my ($f, $file) = @_; - my $linkdest; #- try hard to keep symlinks as they were set if (-l $file) { my $targetfile = readlink $file; - unlink $file; - $linkdest = $file; $file = $targetfile; } if (-s $file) { @@ -299,7 +296,6 @@ sub substInFile(&@) { select $old; eval { output($file, $_) }; } - $linkdest and symlink $file, $linkdest; } -- cgit v1.2.1