On 7/21/2014 7:06 PM, Craig A. Berry wrote:
On Jul 20, 2014, at 3:50 PM, John E. Malmberg <wb8...@qsl.net> wrote:
If you define PERL_VMS_POSIX_EXIT or DECC$FILENAME_UNIX_REPORT, it
is supposed to behave the way that you would normally expect.
That depends on what you normally expect. PERL_VMS_POSIX_EXIT should
more or less give you posixish behavior regarding exit codes. I can't
think of a good reason to enable it unless you are running under bash.
DECC$FILENAME_UNIX_REPORT has nothing at all to do with exit statuses.
The perlvms documentation needs to be updated.
http://perldoc.perl.org/perlvms.html
The PERL_VMS_POSIX_EXIT needed to be 1 to get it active. "ENABLE" did
not work. Perl VMS documentation only mentions "ENABLE"
Well it certainly does something:
$ define PERL_VMS_POSIX_EXIT 1 $ perl -e "$! = 66; die;" Died at -e
line 1. $ show symbol $status $STATUS == "%X1035A212"
66 is ENOTEMPTY. 66 might be embedded in that $STATUS value
somewhere, transmogrified by various kinds of masking and shifting,
but I'm late for dinner and have no time to debug it at the moment.
$ x = %x212/8
$ show sym x
X = 66 Hex = 00000042 Octal = 00000000102
BASH-4.2$ alias perl=/perl_root/perl.exe
BASH-4.2$ perl -e \
"\$s=\$ENV{X} or die \"no such environment variable: '\$!'\n\""
no such environment variable: 'invalid argument'
BASH-4.2$ echo $?
22
BASH-4.2$ perl -e \
"\$s='nosuchdir'; chdir \$s or die \"Can't cd to \$s: '\$!'\n\""
Can't cd to nosuchdir: 'no such file or directory'
BASH-4.2$ echo $?
2
BASH-4.2$ uname -a
OpenVMS EISNER 0 V8.3 AlphaServer_DS20_500_MHz Alpha Alpha HP/OpenVMS
Trying the DCL examples again:
$ perl -e "$s='nosuchdir'; chdir $s or die ""Can't cd to $s: '$!, $^E'\n"""
Can't cd to nosuchdir: 'no such file or directory, %RMS-E-DNF, directory
not found'
$ show sym $status
$STATUS == "%X1035A012"
$ unix = %x12/8
$ show sym unix
UNIX = 2 Hex = 00000002 Octal = 00000000002
$ perl -e "$s=$ENV{X} or die ""no such environment variable: '$!, $^E'\n"""
no such environment variable: 'invalid argument, %SYSTEM-F-NOLOGNAM, no
logical name match'
$ show sym $status
$STATUS == "%X1035A0B2"
$ unix = %x0b2/8
$ show sym unix
UNIX = 22 Hex = 00000016 Octal = 00000000026
This feature setting also allows perl to spawn child perls and capture
the original exit codes.
Regards,
-John
