diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 19:57:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 19:57:34 +0000 |
| commit | b7dccc218b24a8ba0e0cd15ea0385ad8d3d5371f (patch) | |
| tree | f4fd1a78951686c49009b9a1ed9b78e0cfaa6ec2 /mg.c | |
| parent | a70048fb46c7e3634938eaa53e2423567fb07b67 (diff) | |
| download | perl-b7dccc218b24a8ba0e0cd15ea0385ad8d3d5371f.tar.gz | |
(retracted by #12485)
Thou shalt not #ifdef inside macro invocations,
noticed by Rafael Garcia-Suarez.
p4raw-id: //depot/perl@12479
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1964,13 +1964,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) STATUS_POSIX_SET(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); break; case '!': - SETERRNO(SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0, +#define GETERRNO(sv) (SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0) #ifdef VMS - (SvIV(sv) == EVMSERR) ? 4 : vaxc$errno + SETERRNO(GETERRNO(sv), + (SvIV(sv) == EVMSERR) ? 4 : vaxc$errno); #else - 0 + SETERRNO(GETERRNO(sv), 0); #endif - ); break; case '<': PL_uid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); |