sebb wrote: > JEM wrote: > > Test 7 is failing because normally on VMS, unless you > specify otherwise, > > you get exclusive access to the file, so the second open is failing. > > > > The logical name DECC$FILE_SHARING defined as "ENABLE" will > change VMS > > behavior to that of UNIX which will allow test 7 to pass. > > > > I can probably come up with some code to have the script on VMS make > > sure that that value is set and to clear it on exit. > > Would it not be better to fix the VMS Perl open() call so it works the > same as on other OSes?
I'll jump in here with my own 2-cents worth. On VMS, the default behavior makes sense. VMS is a multi-user system, and when you open a file, the default access is exclusive. VMS has rich file sharing semantics, so it is easy to change this behavior; but a VMS user expects default access to be exclusive. Changing this behavior to conform to perl usage on other OSes could be a configuration option; but the default "no surprise" behavior should be exclusive access. Most of the files I use within Perl are flat text files where file sharing would not be feasible. If a VMS programmer is working on a VMS "RMS indexed" or "RMS relative" file organization, then a different sharing option might be appropriate, but that needs to be dealt with in VMS-specfic .xs files that manipulate those files. Again, just my 2 cents. Carl Friedberg [EMAIL PROTECTED] +1.212.233.5470 www.comets.com
