summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/ipsec.pm3
1 files changed, 2 insertions, 1 deletions
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;