Crash of 5.8.7 on a `show default`

[Frans Slothouber]

I ran into the following bug today:

If the following program

  DKWS38>type sys$login:tt.pl

   my $t = `show default`;
   print "hello $t\n";

is run, while my current directory is set to
a directory I do not have access to, as in:

  DKWS38>set def foo$exe:
  DKWS38>dir
   %DIRECT-E-OPENIN, error opening foo$:[EXE]*.*;* as input
   -RMS-E-PRV, insufficient privilege or file protection violation

perl crashes with the following message:

  DKWS38>perl sys$login:tt.pl

  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



Have fun,
Frans.