pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2008-06-10
2008-06-10 12:43:17 by Martin Stjernholm <mast@lysator.liu.se>
f9046f846729322fed1843a7b30d8f545179112e (
20
lines) (+
11
/-
9
)
[
Show
|
Annotate
]
Branch:
7.9
Oops..
Rev: lib/master.pike.in:1.443
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
442
2008/06/10 12:
39
:
44
mast Exp $
+
// $Id: master.pike.in,v 1.
443
2008/06/10 12:
43
:
17
mast Exp $
#pike __REAL_VERSION__ //#pragma strict_types
1049:
} #ifdef __NT__
-
var
= lower_case(
var
);
+
varname
= lower_case(
varname
);
#endif if (compat_environment) { array(string) res;
-
if (!equal(res = compat_environment[
var
], compat_environment_copy[
var
])) {
+
if (!equal(res = compat_environment[
varname
],
+
compat_environment_copy[
varname
])) {
// Something has messed with the compat environment mapping.
-
putenv(
var
, res && res[1]);
+
putenv(
varname
, res && res[1]);
} }
-
return environment[
var
];
+
return environment[
varname
];
} else {
1082:
else { if (compat_environment && !equal(compat_environment, compat_environment_copy)) {
-
foreach(compat_environment;
var
; array(string) pair) {
-
if (!equal(pair, compat_environment_copy[
var
])) {
+
foreach(compat_environment;
varname
; array(string) pair) {
+
if (!equal(pair, compat_environment_copy[
varname
])) {
putenv(pair[0], pair[1]); } }
-
foreach(compat_environment_copy;
var
; array(string) pair) {
-
if (!compat_environment[
var
]) {
+
foreach(compat_environment_copy;
varname
; array(string) pair) {
+
if (!compat_environment[
varname
]) {
putenv(pair[0]); } }