From 949edba55bb75742dec814d45971f024a6ef69da Mon Sep 17 00:00:00 2001 From: Florin Grad Date: Tue, 17 Feb 2004 00:00:05 +0000 Subject: fix the ";" mark in the Security Policies Section --- perl-install/network/ipsec.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/network/ipsec.pm b/perl-install/network/ipsec.pm index 8e4afdf4d..c2f5f4526 100644 --- a/perl-install/network/ipsec.pm +++ b/perl-install/network/ipsec.pm @@ -544,6 +544,7 @@ sub read_ipsec_conf { chomp($_); $myline = $_; $myline =~ s/^\s+//; + $myline =~ s/;$//; if ($myline =~ /^spdadd/) { @mylist = split /\s+/,$myline; $in_a_conn = "y"; @@ -756,7 +757,7 @@ sub already_existing_section_ipsec_conf { #- returns the reference to the dynamical list for editing sub dynamic_list { my ($number, $ipsec) = @_; - my @list = map { { label => "$ipsec->{$number}{$_}[0]" . "=", + my @list = map { { label => $ipsec->{$number}{$_}[0] . "=", val => \$ipsec->{$number}{$_}[1] } } ikeys %{$ipsec->{$number}}; @list; -- cgit v1.2.1