> Craig Berry wrote:
>> At 9:20 AM +0100 1/12/06, Frans Slothouber wrote:
>>>I ran into the following bug today:
>>> DKWS38>type sys$login:tt.pl
>>> my $t = `show default`;
>>> print "hello $t\n";
>>> DKWS38>perl sys$login:tt.pl
[snip]
>>> Fatal VMS error (status=98970) at
>>>DISK$PROSY_USER:[PROSY.FRANS.PERL-INTRAFFIC-5_8_7]VMS.C;1,
>>> line 6896 at sys$login:tt.pl line 1.
>>> %RMS-E-PRV, insufficient privilege or file protection violation
>>
>> I can't reproduce this with the latest development snapshot:
>> If you have the privs to do it, try
>
>> $ set process/priv=CMKRNL
>> $ set watch file/class=major
>>
>> then run the perl example again. Turn it off with
>>
>> $ set watch file/class=none
>>
[snip]
>
> Tried it. It seems to have no trouble finding VMSPIPE.COM.
> The problem really seems to be in the look-up of the offending
> directory (in this case OVI.DIR)
>
> ...
> %XQP, Thread #0, Access VMSPIPE.COM;1 (30862,1,0) Status: 00000001
[snip]
> %XQP, Thread #0, Deaccess (11882,1,0) Reads: 4, Writes: 0, Status:
> 00000001
> %XQP, Thread #0, Lookup OVI.DIR;1 (1972,1,0) Status: 00000024
> Fatal VMS error (status=98970) at
> DISK$PROSY_USER:[PROSY.FRANS.PERL-INTRAFFIC-5_
> 8_7]VMS.C;1, line 6896 at sys$login:tt.pl line 1.
> %RMS-E-PRV, insufficient privilege or file protection violation
>
> I shall try to run this with the latest development release and
> report back.
Tried it with
5.8.7 with
Locally applied patches:
MAINT26840
and it results in:
$ perl sys$login:tt.pl
%DCL-I-INVDEF, OVI$:[EXE] does not exist
hello OVI$:[EXE]
%DCL-I-INVDEF, OVI$:[EXE] does not exist
So it seems the bug is gone as it doesn't crash anymore.
(Though the resulting informational is a bit confusing, it is
not that the directory does not exist, but rather that I don't
have permission to access it. But I guess that is not Perl's fault).
Have fun,
Frans.
