summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-08 01:48:28 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-08 01:48:28 +0000
commit0f16f9693f47687136e5058916d0d04dcb611217 (patch)
tree621a0c76850737d6353385ece3f3fda54219f7b0 /perl-install/common.pm
parent83e615434cf1bc3a692ab95b9b8aac3af6c366c8 (diff)
downloaddrakx-0f16f9693f47687136e5058916d0d04dcb611217.tar
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.gz
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.bz2
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.xz
drakx-0f16f9693f47687136e5058916d0d04dcb611217.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index b1133b4ca..8cb221afb 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -325,7 +325,7 @@ sub setVarsInSh {
my ($file, $l, @fields) = @_;
@fields = keys %$l unless @fields;
- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
+#- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
local *F;
open F, "> $_[0]" or die "cannot create config file $file";
$l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;
@@ -334,7 +334,7 @@ sub setVarsInCsh {
my ($file, $l, @fields) = @_;
@fields = keys %$l unless @fields;
- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
+#- my $b = 1; $b &&= $l->{$_} foreach @fields; $b or return;
local *F;
open F, "> $_[0]" or die "cannot create config file $file";
$l->{$_} and print F "setenv $_ $l->{$_}\n" foreach @fields;