From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 28 Feb 2001 23:28:49 +0000 (+0000)
Subject: don't write along symlinks into a read only source tree (was Re: [ID 20010129.006... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=918426be7f3660c63cebe082bf8eac82a38bf756;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/embed.pl b/embed.pl
index a3bedba..fcee010 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;
     }
diff --git a/warnings.pl b/warnings.pl
index 3a5037d..138b1db 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -172,8 +172,8 @@ if (@ARGV && $ARGV[0] eq "tree")
     exit ;
 }
 
-#unlink "warnings.h";
-#unlink "lib/warnings.pm";
+unlink "warnings.h";
+unlink "lib/warnings.pm";
 open(WARN, ">warnings.h") || die "Can't create warnings.h: $!\n";
 open(PM, ">lib/warnings.pm") || die "Can't create lib/warnings.pm: $!\n";