diff options
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vmsish.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 6f2ee13837..946bb4e638 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -321,8 +321,8 @@ struct interp_intern { #define _ckvmssts_noperl(call) STMT_START { unsigned long int __ckvms_sts; \ if (!((__ckvms_sts=(call))&1)) { \ set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \ - fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \ - __ckvms_sts,__FILE__,__LINE__); lib$signal(__ckvms_sts); } } STMT_END + (void)fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \ + __ckvms_sts,__FILE__,__LINE__); (void)lib$signal(__ckvms_sts); } } STMT_END #ifdef VMS_DO_SOCKETS #define PERL_SOCK_SYSREAD_IS_RECV |