summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ipsec.pm
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2004-02-11 14:54:07 +0000
committerFlorin Grad <florin@mandriva.com>2004-02-11 14:54:07 +0000
commitab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b (patch)
treee1cf1c1056fa7449a527f264dfea7bd58ef63f2b /perl-install/network/ipsec.pm
parentca889fec9abf2c0223e705ab378f1c4043b0e3c0 (diff)
downloaddrakx-backup-do-not-use-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar
drakx-backup-do-not-use-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.gz
drakx-backup-do-not-use-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.bz2
drakx-backup-do-not-use-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.xz
drakx-backup-do-not-use-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.zip
fix the perl_checker errors
Diffstat (limited to 'perl-install/network/ipsec.pm')
-rw-r--r--perl-install/network/ipsec.pm15
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++;