Q: Can anyone explain this cursious behaviour.

--------------040407040701060905040405
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Hi,

we came across this curious behaviour. Here enclosed please find a 
reproducer.


When running the enclosed perl script without any logical definitions we 
get the message:
$ perl x.pl
Why do I get %SYSTEM-F-NOLOGNAM? at x.pl line 5.
%SYSTEM-F-NOLOGNAM, no logical name match

When we define a logical name X we get:
$ def/user X Y
$ perl x.pl
Y
Why do I get %SYSTEM-F-NOLOGNAM? at x.pl line 5.
%SYSTEM-F-ABORT, abort
$

$ perl -v

This is perl 5, version 20, subversion 0 (v5.20.0) built for VMS_IA64


Kind regards
John

PS. Why can't a PRODUCT INSTALL of PERL leave an older installation 
alone (ie. do not start deleting files in the directory tree), or at 
least offer an OPTION to leave the old installation as is?



--------------040407040701060905040405
Content-Type: application/x-perl;
 name="x.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="x.pl"

# try "$ def/user X Y"
if ($ENV{X} && $ENV{X} =~ /Y/) {
        print $ENV{X}, "\n";
}
my $whatever = shift @ARGV or die "Why do I get %SYSTEM-F-NOLOGNAM?";
exit 0; 

--------------040407040701060905040405--