diff --git a/mg.c b/mg.c index 40a692a8624b..15c2b009f147 100644 --- a/mg.c +++ b/mg.c @@ -931,6 +931,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) #elif defined(OS2) { int utf8ness; + if (!(_emx_env & 0x200)) { /* Under DOS */ sv_setnv(sv, (NV)errno); sv_setpv(sv, errno ? my_strerror(errnum, &utf8ness) : "");