From c050368b01b01d0bd5ed4978d4d5b1809108da68 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 24 Feb 2002 19:36:26 +0000
Subject: fix some escaped " causing xgettext to go wild

---
 perl-install/tinyfirewall.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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",
-- 
cgit v1.2.1