diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-06-25 01:02:36 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-25 13:44:14 +0000 |
| commit | 9fed8b87f0e66c26a1acaf42431d99e8f98aed9b (patch) | |
| tree | 0e2217b9b1b47b8bbe645e1146f1d52ec742c0fb /mg.c | |
| parent | 65850d1188a11c32e29d02481824ef0f35fbacee (diff) | |
| download | perl-9fed8b87f0e66c26a1acaf42431d99e8f98aed9b.tar.gz | |
Re: [PATCH 5.6.1] $^E on OS/2
Message-ID: <20010625050235.A24046@math.ohio-state.edu>
p4raw-id: //depot/perl@10917
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1734,7 +1734,9 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) # ifdef WIN32 SetLastError( SvIV(sv) ); # else -# ifndef OS2 +# ifdef OS2 + os2_setsyserrno(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); +# else /* will anyone ever use this? */ SETERRNO(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv), 4); # endif |