summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
authorjingham <jingham>1999-08-15 04:54:03 (GMT)
committerjingham <jingham>1999-08-15 04:54:03 (GMT)
commiteb0438e13645c7ae2cd20aacc45bf7b98fab45d9 (patch)
tree3e1447ee115ca6be1dd70ba2019db55d26ce45ae /mac
parentdf28c68de122b395234fcd4f8857d36c96b8ec56 (diff)
downloadtcl-eb0438e13645c7ae2cd20aacc45bf7b98fab45d9.zip
tcl-eb0438e13645c7ae2cd20aacc45bf7b98fab45d9.tar.gz
tcl-eb0438e13645c7ae2cd20aacc45bf7b98fab45d9.tar.bz2
Change the permissions for opening resource files to Shared. Suprisingly enough, this is the only way to get notification if you have opened the file twice...
Diffstat (limited to 'mac')
-rw-r--r--mac/tclMacResource.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c
index 0c1a372..4362ede 100644
--- a/mac/tclMacResource.c
+++ b/mac/tclMacResource.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclMacResource.c,v 1.6 1999/04/28 17:06:07 stanton Exp $
+ * RCS: @(#) $Id: tclMacResource.c,v 1.7 1999/08/15 04:54:03 jingham Exp $
*/
#include <Errors.h>
@@ -537,7 +537,7 @@ resourceRef? resourceType");
break;
case O_WRONLY:
case O_RDWR:
- macPermision = fsRdWrPerm;
+ macPermision = fsRdWrShPerm;
break;
default:
panic("Tcl_ResourceObjCmd: invalid mode value");
@@ -559,7 +559,7 @@ resourceRef? resourceType");
if (fileRef == -1) {
err = ResError();
if (((err == fnfErr) || (err == eofErr)) &&
- (macPermision == fsRdWrPerm)) {
+ (macPermision == fsRdWrShPerm)) {
/*
* No resource fork existed for this file. Since we are
* opening it for writing we will create the resource fork