summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-01 19:39:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-01 19:39:26 +0000
commitaf0430510356c70ea497fc108466c6236c1afcc1 (patch)
tree17effe0a98c90f57475cf4f50920626efe387e93 /perl-install
parentc097645a9335a459f04a8390c8120cb9616456aa (diff)
downloaddrakx-af0430510356c70ea497fc108466c6236c1afcc1.tar
drakx-af0430510356c70ea497fc108466c6236c1afcc1.tar.gz
drakx-af0430510356c70ea497fc108466c6236c1afcc1.tar.bz2
drakx-af0430510356c70ea497fc108466c6236c1afcc1.tar.xz
drakx-af0430510356c70ea497fc108466c6236c1afcc1.zip
kill stupide style
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/tinyfirewall.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index f8d5889a9..e893f1667 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -82,10 +82,8 @@ sub SaveConfig {
or die _("Can't open %s: %s\n", $config_file, $!);
open TMPFILE, ">$tmp_file"
or die _("Can't open %s for writing: %s\n", $tmp_file, $!);
- while (my $line = <CONFIGFILE>)
- {
- if ($line =~ m/^(.+)\s*\=\s*"(.*)"/)
- {
+ while (my $line = <CONFIGFILE>) {
+ if ($line =~ m/^(.+)\s*\=\s*"(.*)"/) {
my ($variable, $value) = ($1, $2);
my $newvalue = $settings{$variable};
$line =~ s/".*"/"$newvalue"/