diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 18:41:12 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 18:41:12 +0000 |
| commit | bf4acbe410c9fcc2bff9bfa63411be8c6c46902a (patch) | |
| tree | 077f53c9756dde3500e84d80533c3a6a24300200 /mg.c | |
| parent | 704ea872433dd6d5a1c650f509289fdea5c037ab (diff) | |
| download | perl-bf4acbe410c9fcc2bff9bfa63411be8c6c46902a.tar.gz | |
MacOS support, part 1 (from Matthias Neeracher
<neeri@iis.ee.ethz.ch>)
p4raw-id: //depot/perl@6143
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -489,8 +489,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) { char msg[256]; - sv_setnv(sv,(double)gLastMacOSErr); - sv_setpv(sv, gLastMacOSErr ? GetSysErrText(gLastMacOSErr, msg) : ""); + sv_setnv(sv,(double)gMacPerl_OSErr); + sv_setpv(sv, gMacPerl_OSErr ? GetSysErrText(gMacPerl_OSErr, msg) : ""); } #else #ifdef VMS @@ -1670,7 +1670,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; case '\005': /* ^E */ #ifdef MACOS_TRADITIONAL - gLastMacOSErr = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); + gMacPerl_OSErr = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); #else # ifdef VMS set_vaxc_errno(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); |