blob: 3ba5e69308ad1f822f10a2b32f3df4f6aea4ec63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*** /scalpel/lwall/perl5alpha4/perl.c Fri Jan 14 05:04:50 1994
--- perl.c Fri Jan 14 23:22:47 1994
***************
*** 1303,1309 ****
SvMULTI_on(envgv);
hv = GvHVn(envgv);
hv_clear(hv);
- hv_magic(hv, envgv, 'E');
if (env != environ)
environ[0] = Nullch;
for (; *env; env++) {
--- 1303,1308 ----
***************
*** 1314,1319 ****
--- 1313,1319 ----
(void)hv_store(hv, *env, s - *env, sv, 0);
*s = '=';
}
+ hv_magic(hv, envgv, 'E');
}
tainted = 0;
if (tmpgv = gv_fetchpv("$",TRUE))
|
