diff options
| author | Florin Grad <florin@mandriva.com> | 2004-02-11 14:54:07 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2004-02-11 14:54:07 +0000 |
| commit | ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b (patch) | |
| tree | e1cf1c1056fa7449a527f264dfea7bd58ef63f2b /perl-install/network/ipsec.pm | |
| parent | ca889fec9abf2c0223e705ab378f1c4043b0e3c0 (diff) | |
| download | drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.gz drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.bz2 drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.xz drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.zip | |
fix the perl_checker errors
Diffstat (limited to 'perl-install/network/ipsec.pm')
| -rw-r--r-- | perl-install/network/ipsec.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/perl-install/network/ipsec.pm b/perl-install/network/ipsec.pm index 3c17f0994..74ae42cd7 100644 --- a/perl-install/network/ipsec.pm +++ b/perl-install/network/ipsec.pm @@ -235,13 +235,18 @@ sub display_racoon_conf { my ($racoon) = @_; my $display = ""; my $prefix_to_simple_line = ""; + my $pt; foreach my $key1 (ikeys %$racoon) { if (!$racoon->{$key1}{1}) { $display .= $prefix_to_simple_line . $racoon->{$key1} . "\n"; $prefix_to_simple_line = ""; } else { foreach my $key2 (ikeys %{$racoon->{$key1}}) { - $key2 > 1 ? my $pt = $racoon->{$key1}{$key2-1}[0] : my $pt = $racoon->{$key1}{1}[0]; + if ($key2 > 1) { + $pt = $racoon->{$key1}{$key2-1}[0]; + } else { + $pt = $racoon->{$key1}{1}[0]; + }; my $t = $racoon->{$key1}{1}[0]; my $f = $racoon->{$key1}{$key2}[0]; my $list_length = scalar @{$racoon->{$key1}{$key2}}; @@ -297,13 +302,18 @@ sub write_racoon_conf { my ($racoon_conf, $racoon) = @_; my $display = ""; my $prefix_to_simple_line = ""; + my $pt; foreach my $key1 (ikeys %$racoon) { if (!$racoon->{$key1}{1}) { $display .= $prefix_to_simple_line . $racoon->{$key1} . "\n"; $prefix_to_simple_line = ""; } else { foreach my $key2 (ikeys %{$racoon->{$key1}}) { - $key2 > 1 ? my $pt = $racoon->{$key1}{$key2-1}[0] : my $pt = $racoon->{$key1}{1}[0]; + if ($key2 > 1) { + $pt = $racoon->{$key1}{$key2-1}[0]; + } else { + $pt = $racoon->{$key1}{1}[0]; + }; my $t = $racoon->{$key1}{1}[0]; my $f = $racoon->{$key1}{$key2}[0]; my $list_length = scalar @{$racoon->{$key1}{$key2}}; @@ -451,6 +461,7 @@ sub remove_section_racoon_conf { delete $racoon->{$k} if $k > 1 && !$racoon->{$k-1}; my $closing_curly_bracket = 0; while ($closing_curly_bracket < 2) { + print "-->$k\n"; $closing_curly_bracket++ if $racoon->{$k} eq "}"; delete $racoon->{$k}; $k++; |