diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-24 19:36:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-24 19:36:26 +0000 |
| commit | c050368b01b01d0bd5ed4978d4d5b1809108da68 (patch) | |
| tree | 4a7bf207db4ea9226674d15113792edefab6ae37 /perl-install/tinyfirewall.pm | |
| parent | e3b9af2efa018719c597a75e7baa116670579462 (diff) | |
| download | drakx-c050368b01b01d0bd5ed4978d4d5b1809108da68.tar drakx-c050368b01b01d0bd5ed4978d4d5b1809108da68.tar.gz drakx-c050368b01b01d0bd5ed4978d4d5b1809108da68.tar.bz2 drakx-c050368b01b01d0bd5ed4978d4d5b1809108da68.tar.xz drakx-c050368b01b01d0bd5ed4978d4d5b1809108da68.zip | |
fix some escaped " causing xgettext to go wild
Diffstat (limited to 'perl-install/tinyfirewall.pm')
| -rw-r--r-- | perl-install/tinyfirewall.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm index 32a745094..9646662de 100644 --- a/perl-install/tinyfirewall.pm +++ b/perl-install/tinyfirewall.pm @@ -84,11 +84,11 @@ sub SaveConfig { or die _("Can't open %s for writing: %s\n", $tmp_file, $!); while (my $line = <CONFIGFILE>) { - if ($line =~ m/^(.+)\s*\=\s*\"(.*)\"/) + if ($line =~ m/^(.+)\s*\=\s*"(.*)"/) { my ($variable, $value) = ($1, $2); my $newvalue = $settings{$variable}; - $line =~ s/\".*\"/\"$newvalue\"/ + $line =~ s/".*"/"$newvalue"/ if (exists $settings{$variable}); } print TMPFILE $line; @@ -159,7 +159,7 @@ sub DoInterface { substInFile { if(/^(.+)\s*\=/) { $a=$settings{$1}; - s/\".*\"/\"$a\"/; + s/".*"/"$a"/; } } $config_file; system($_) foreach ("/bin/cp /usr/share/Bastille/bastille-ipchains /usr/share/Bastille/bastille-netfilter /sbin", |