diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 22:24:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 22:24:26 +0000 |
| commit | 6ee623d521a149edc6574c512fa951a192cd086a (patch) | |
| tree | 3d769839caf246d24053d0f49b4f48aed590e031 /ext/B/byteperl.c | |
| parent | 20408e3ccf502b6ce4033d8203710405ec9ef8f6 (diff) | |
| download | perl-6ee623d521a149edc6574c512fa951a192cd086a.tar.gz | |
[win32] integrate mainline
p4raw-id: //depot/win32/perl@973
Diffstat (limited to 'ext/B/byteperl.c')
| -rw-r--r-- | ext/B/byteperl.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ext/B/byteperl.c b/ext/B/byteperl.c index a42edfb8d5..323d63a809 100644 --- a/ext/B/byteperl.c +++ b/ext/B/byteperl.c @@ -37,7 +37,11 @@ main(int argc, char **argv, char **env) if (!do_undump) { my_perl = perl_alloc(); if (!my_perl) +#ifdef VMS + exit(vaxc$errno); +#else exit(1); +#endif perl_construct( my_perl ); } @@ -56,7 +60,11 @@ main(int argc, char **argv, char **env) #endif if (!fp) { perror(argv[1]); +#ifdef VMS + exit(vaxc$errno); +#else exit(1); +#endif } argv++; argc--; |