diff options
| author | Florin Grad <florin@mandriva.com> | 2004-02-17 00:00:05 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2004-02-17 00:00:05 +0000 |
| commit | 949edba55bb75742dec814d45971f024a6ef69da (patch) | |
| tree | 0050dfefb38b49e50f3c2d425e7d64adaddb108b /perl-install | |
| parent | 675cf17f8beed48c3fe929b719fea31529d36a1c (diff) | |
| download | drakx-949edba55bb75742dec814d45971f024a6ef69da.tar drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.gz drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.bz2 drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.xz drakx-949edba55bb75742dec814d45971f024a6ef69da.zip | |
fix the ";" mark in the Security Policies Section
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/ipsec.pm | 3 |
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; |