summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-24 19:36:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-24 19:36:26 +0000
commitc050368b01b01d0bd5ed4978d4d5b1809108da68 (patch)
tree4a7bf207db4ea9226674d15113792edefab6ae37 /perl-install
parente3b9af2efa018719c597a75e7baa116670579462 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/tinyfirewall.pm6
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",