diff options
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", |