diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1998-01-22 12:11:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-03 03:43:42 +0000 |
| commit | 78987dedd25ff29688fc6fdb7b551d69e750279b (patch) | |
| tree | cde171fd5b3c4d10ac70187c2bef10d757dabd24 /mg.c | |
| parent | c3e0f9031ff4516c836ba169441f96b6f70efbe7 (diff) | |
| download | perl-78987dedd25ff29688fc6fdb7b551d69e750279b.tar.gz | |
[win32] another maintpatch (this one needed adjust of test nos.)
Message-Id: <199801221211.MAA05315@crypt.compulink.co.uk>
Subject: Re: [PERL] A few perl5.004_03 bugs
p4raw-id: //depot/win32/perl@634
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1547,7 +1547,7 @@ magic_set(SV *sv, MAGIC *mg) STATUS_POSIX_SET(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); break; case '!': - SETERRNO(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv), + SETERRNO(SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0, (SvIV(sv) == EVMSERR) ? 4 : vaxc$errno); break; case '<': |