From 8e9fea36c1c50c17506b6ba37257817d11be68d5 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 23 Mar 2001 13:52:02 +0000 Subject: correctedd typo --- perl-install/tinyfirewall.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm index 7ce984c2a..c4fc7c871 100644 --- a/perl-install/tinyfirewall.pm +++ b/perl-install/tinyfirewall.pm @@ -135,7 +135,7 @@ sub DoInterface { $messages[$i], [ $yes, $no ], or_( map { $_ && CheckService($_->[0], $_->[1]) } (@$l[4..6])) ? $yes : $no )) { - map { $_ and Service ($e=~/Yes/, $_->[0], $_->[1]) } (@{@struct[$i]}[4..6]); + map { $_ and Service($e=~/Yes/, $_->[0], $_->[1]) } (@{$struct[$i]}[4..6]); $struct[$i][3] and $struct[$i][3]->($e=~/Yes/); } else { prev: -- cgit v1.2.1