From b8a25c88bba7e597dd0c148e15693672d2a30f85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 6 Nov 2002 17:38:26 +0000 Subject: replace complex "unless"s with "if"s --- perl-install/network/netconnect.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index f515d85ef..592092a06 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -46,10 +46,10 @@ sub intro { translate($text), sub { $_[0]{description} }, \@l); - run_program::rooted($prefix, $connect_prog) if ($e->{c}==1); - run_program::rooted($prefix, $disconnect_file) if ($e->{c}==2); - main($prefix, $netcnx, $netc, $mouse, $in, $intf, 0, 0) if ($e->{c}==3); - $in->exit(0) if ($e->{c}==4); + run_program::rooted($prefix, $connect_prog) if $e->{c}==1; + run_program::rooted($prefix, $disconnect_file) if $e->{c}==2; + main($prefix, $netcnx, $netc, $mouse, $in, $intf, 0, 0) if $e->{c}==3; + $in->exit(0) if $e->{c}==4; } else { main($prefix, $netcnx, $netc, $mouse, $in, $intf, 0, 0); } -- cgit v1.2.1