++ed by:

100 PAUSE users
198 non-PAUSE users.

Léon Brocard
and 1 contributors


vmsish - Perl pragma to control VMS-specific language features


    use vmsish;

    use vmsish 'status';        # or '$?'
    use vmsish 'exit';
    use vmsish 'time';

    use vmsish;
    no vmsish 'time';


If no import list is supplied, all possible VMS-specific features are assumed. Currently, there are three VMS-specific features available: 'status' (a.k.a '$?'), 'exit', and 'time'.

vmsish status

This makes $? and system return the native VMS exit status instead of emulating the POSIX exit status.

vmsish exit

This makes exit 1 produce a successful exit (with status SS$_NORMAL), instead of emulating UNIX exit(), which considers exit 1 to indicate an error. As with the CRTL's exit() function, exit 0 is also mapped to an exit status of SS$_NORMAL, and any other argument to exit() is used directly as Perl's exit status.

vmsish time

This makes all times relative to the local time zone, instead of the default of Universal Time (a.k.a Greenwich Mean Time, or GMT).

See "Pragmatic Modules" in perlmod.