diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-10-23 23:24:28 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-24 11:11:02 +0000 |
| commit | ed344e4f516e393bcdfd181ec61ffbb056bebd56 (patch) | |
| tree | de14a1859e804586b669ccab1b5e1f97623c5e7e /mg.c | |
| parent | 72b3d9b4e0eb3eb49735d998edaf49073f03375e (diff) | |
| download | perl-ed344e4f516e393bcdfd181ec61ffbb056bebd56.tar.gz | |
Re: [PATCH 5.005_62] OS/2 improvements
Message-Id: <199910240724.DAA12230@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@4432
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -638,7 +638,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) int saveerrno = errno; sv_setnv(sv, (NV)errno); #ifdef OS2 - if (errno == errno_isOS2) sv_setpv(sv, os2error(Perl_rc)); + if (errno == errno_isOS2 || errno == errno_isOS2_set) + sv_setpv(sv, os2error(Perl_rc)); else #endif sv_setpv(sv, errno ? Strerror(errno) : ""); |