diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 20:27:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 20:27:34 +0000 |
| commit | fc8f2f0bea7446191b123f94e63c729814407ba7 (patch) | |
| tree | 54f64a190c073c48e3bb4291b9d0e037ac7be4cd /mg.c | |
| parent | b7dccc218b24a8ba0e0cd15ea0385ad8d3d5371f (diff) | |
| download | perl-fc8f2f0bea7446191b123f94e63c729814407ba7.tar.gz | |
(retracted by #12485)
KISS.
p4raw-id: //depot/perl@12480
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1964,12 +1964,10 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) STATUS_POSIX_SET(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); break; case '!': -#define GETERRNO(sv) (SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0) #ifdef VMS - SETERRNO(GETERRNO(sv), - (SvIV(sv) == EVMSERR) ? 4 : vaxc$errno); + SETERRNO(0, (SvIV(sv) == EVMSERR) ? 4 : vaxc$errno); #else - SETERRNO(GETERRNO(sv), 0); + SETERRNO(SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0, 0); #endif break; case '<': |