diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-07-23 15:29:49 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-23 23:04:02 +0000 |
| commit | 3ca56e101d696292d0e55791679f32fb65600cd5 (patch) | |
| tree | 7c3b6d33f1a91ca057bbb02e382338fdd9a4de55 /mg.c | |
| parent | 012c5f2bdb3d45b949dee6902e79768328cc546b (diff) | |
| download | perl-3ca56e101d696292d0e55791679f32fb65600cd5.tar.gz | |
OS/2 multi-architecture
Message-ID: <20010723192949.A14802@math.ohio-state.edu>
p4raw-id: //depot/perl@11462
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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++) |