From cc21d625220134b1ffd00ebdab17de79364cb197 Mon Sep 17 00:00:00 2001
From: kyoshiro <kyoshiro>
Date: Sat, 24 Mar 2007 12:47:09 +0000
Subject: [PATCH] fix password not quoted

---
 scripts/bipgenconfig | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/bipgenconfig b/scripts/bipgenconfig
index 1ec2103..6e28968 100755
--- a/scripts/bipgenconfig
+++ b/scripts/bipgenconfig
@@ -586,7 +586,7 @@ sub printBlock {
 		next if ($e->{$k} eq undef);
 		next if ($optdesc{$name}->{$k}->{'nosave'} eq 1);
 		my $t = $optdesc{$name}->{$k}->{'type'};
-		if ($t eq 's') {
+		if ($t eq 's' || $t eq 'p') {
 			$out .= $prefix . "\t$k = \"" . $e->{$k} . "\";\n";
 		} elsif (ref($e->{$k}) eq 'ARRAY') {
 			foreach my $e2 (@{$e->{$k}}) {