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.
