don't write along symlinks into a read only source tree (was Re: [ID 20010129.006] OK: perl v5.7.0 +DEVEL8584 on i586-linux-64all 2.2.12 (UNINSTALLED))

Message-ID: <20010228232849.A55187@plum.flirble.org>

Allow a completely write protected source code tree
when using the Configure -Dmksymlinks.

p4raw-id: //depot/perl@8971

1 files changed, 1 insertions, 0 deletions

diff --git a/embed.pl b/embed.pl
index a3bedbaa0b..fcee010d62 100755
--- a/embed.pl
+++ b/embed.pl
@@ -29,6 +29,7 @@ sub walk_table (&@) {
 	$F = $filename;
     }
     else {
+	unlink $filename;
 	open F, ">$filename" or die "Can't open $filename: $!";
 	$F = \*F;
     }