From 8999201bab63458618adf26ec16c87a4d7bec076 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 15 Jun 2001 13:45:03 +0000 Subject: [PATCH] Some filesystems require writability for rename/unlink. p4raw-id: //depot/perl@10604 --- opcode.pl | 6 ++++++ 1 file changed, 6 insertions(+) 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"; -- 2.7.4