to add a data point, this works on my v7.3 system (unclustered DS20).
EF106> sh dev/full dka500:
Disk EF$DKA500:, device type DEC RRD47, is online, file-oriented device,
shareable, available to cluster, error logging is enabled.
Error count 0 Operations completed 51
Owner process "" Owner UIC [SYSTEM]
Owner process ID 00000000 Dev Prot S:RWPL,O:RWPL,G:R,W
Reference count 0 Default buffer size 512
Current preferred CPU Id 0 Fastpath 1
Total blocks 1080936 Sectors per track 4
Total cylinders 45039 Tracks per cylinder 6
EF106> mount/over=id/noass dka500:
%MOUNT-I-WRITELOCK, volume is write locked
%MOUNT-I-MOUNTED, ALPHA073 mounted on _EF$DKA500:
EF106> $ perl -e "print opendir (DH, 'EF$DKA500:[ALPHA073]') ? 'Success' : 'Failure: ', $! "
Success
EF106> $ perl -e "print opendir (DH, 'EF$DKA500:[000000]') ? 'Success' : 'Failure: ', $! "
Success
EF106> dism dka500:
EF106> mount/over=id/noass/nowrite dka500:
%MOUNT-I-MOUNTED, ALPHA073 mounted on _EF$DKA500:
EF106> $ perl -e "print opendir (DH, 'EF$DKA500:[ALPHA073]') ? 'Success' : 'Failure: ', $! "
Success
EF106> $ perl -e "print opendir (DH, 'EF$DKA500:[000000]') ? 'Success' : 'Failure: ', $! "
Success
EF106> dism dka500:
with the following patches/eco's.
DEC AXPVMS VMS73_PTHREAD V2.0 Patch Install 28-APR-2002 08:12:10
DEC AXPVMS VMS73_DDTM V1.0 Patch Install 28-APR-2002 08:07:42
DEC AXPVMS VMS73_SYS V4.0 Patch Install 28-APR-2002 08:03:02
DEC AXPVMS VMS73_RMS V3.0 Patch Install 28-APR-2002 07:58:58
DEC AXPVMS VMS73_MANAGE V1.0 Patch Install 28-APR-2002 07:53:44
DEC AXPVMS VMS73_INIT V1.0 Patch Install 28-APR-2002 07:49:01
DEC AXPVMS VMS73_RTPAD V1.0 Patch Install 28-APR-2002 07:44:28
DEC AXPVMS VMS73_ACRTL V2.0 Patch Install 28-APR-2002 07:40:37
DEC AXPVMS VMS73_DCL V2.0 Patch Install 28-APR-2002 07:28:54
DEC AXPVMS VMS73_BACKUP V1.0 Patch Install 28-APR-2002 07:23:10
DEC AXPVMS VMS73_CLUSTER V2.0 Patch Install 19-JAN-2002 21:21:44
DEC AXPVMS VMS73_APB V1.0 Patch Install 19-JAN-2002 21:17:41
DEC AXPVMS VMS73_SYSINI V1.0 Patch Install 19-JAN-2002 21:14:10
DEC AXPVMS VMS73_DRIVER V2.0 Patch Install 19-JAN-2002 21:10:24
DEC AXPVMS VMS73_UPDATE V1.0 Patch Install 19-JAN-2002 21:06:31
DEC AXPVMS VMS73_LIBRTL V1.0 Patch Install 19-JAN-2002 20:59:33
-----Original Message-----
From: Tom Edelson [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 29, 2002 2:50 PM
To: '[EMAIL PROTECTED]'
Subject: opendir doesn't seem to work on CD drives
APHV2$DKA400 is a CD-ROM drive on which I have mounted a disk using the MOUNT /MEDIA=CDROM command.
The command
$ perl -e "print opendir (DH, 'APHV2$DKA400:[SAS]') ? 'Success' : 'Failure: ', $! "
gives
Failure: permission denied
The problem seems to be specific to the opendir function: I can read the contents of the same directory from Perl using the glob() function. (I can also open and read individual files in that directory with no problem.)
This problem with opendir smells vaguely like the problem I reported in January, where, if I have access to [e.g.] a directory only because I have dynamically elevated my privileges, then when [e.g.] I try to opendir it, Perl thinks I don't have access. But I can't see how privileges are involved this time.
Now here's something even more special: if I try the same opendir operation, but with the top-level directory of the CD
(APHV2$DKA400:[000000]) instead of a subdirectory, opendir never returns -- because [apparently] while I am in it, VMS quietly deletes my process!
This one should be good for hours of entertainment. I've seen it with Perl 5.6.0 and 5.6.1 on VMS_AXP.
/ Tom Edelson
For the snark was a boojum, you see.
