From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 15 Jun 2001 13:45:03 +0000 (+0000)
Subject: Some filesystems require writability for rename/unlink.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8999201bab63458618adf26ec16c87a4d7bec076;p=p5sagit%2Fp5-mst-13.2.git

Some filesystems require writability for rename/unlink.

p4raw-id: //depot/perl@10604
---

diff --git a/opcode.pl b/opcode.pl
index 3c9ae92..2f4a7fd 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -254,6 +254,9 @@ if (keys %OP_IS_FILETEST) {
 close OC or die "Error closing opcode.h: $!";
 close ON or die "Error closing opnames.h: $!";
 
+chmod 0600, 'opcode.h';  # required by dosish filesystems
+chmod 0600, 'opnames.h'; # required by dosish filesystems
+
 rename 'opcode.h.new', 'opcode.h' or die "renaming opcode.h: $!\n";
 rename 'opnames.h.new', 'opnames.h' or die "renaming opnames.h: $!\n";
 
@@ -295,6 +298,9 @@ for (@ops) {
 close PP or die "Error closing pp_proto.h: $!";
 close PPSYM or die "Error closing pp.sym: $!";
 
+chmod 0600, 'pp_proto.h'; # required by dosish filesystems
+chmod 0600, 'pp.sym';     # required by dosish filesystems
+
 rename 'pp_proto.h.new', 'pp_proto.h' or die "rename pp_proto.h: $!\n";
 rename 'pp.sym.new', 'pp.sym' or die "rename pp.sym: $!\n";