diff options
Diffstat (limited to 'pat/env.pat')
| -rw-r--r-- | pat/env.pat | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/pat/env.pat b/pat/env.pat new file mode 100644 index 0000000000..3ba5e69308 --- /dev/null +++ b/pat/env.pat @@ -0,0 +1,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)) |