From 764df951e4265f932b70873d1d56431da2d2763f Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Mon, 23 Jul 2001 15:29:49 -0400 Subject: OS/2 multi-architecture Message-ID: <20010723192949.A14802@math.ohio-state.edu> p4raw-id: //depot/perl@11462 --- mg.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index b9a5501333..f3fc035952 100644 --- a/mg.c +++ b/mg.c @@ -2120,11 +2120,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; } /* can grab env area too? */ - if (PL_origenviron && (PL_origenviron[0] == s + 1 -#ifdef OS2 - || (PL_origenviron[0] == s + 9 && (s += 8)) -#endif - )) { + if (PL_origenviron && (PL_origenviron[0] == s + 1)) { my_setenv("NoNe SuCh", Nullch); /* force copy of environment */ for (i = 0; PL_origenviron[i]; i++) -- cgit v1.2.1