From fd3b33367c59a30383bcf29fc6b0eedb2b7b964b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 11 Aug 2004 05:36:40 +0000 Subject: (AddNet) help perl_checker in checking callers --- perl-install/standalone/drakroam | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 2870f2554..b0f6ff396 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -219,11 +219,7 @@ sub UpdateAvailable() { } sub AddNet { - my $essid = shift @_; - my $mode = shift @_; - my $channel = shift @_; - my $key = shift @_; - my $dhcp = shift @_; + my ($essid, $mode, $channel, $key, $dhcp) = @_; print "Adding net $essid\n"; push @{$KnownList->{data}}, [ $essid, $mode, $channel, $key, $dhcp ]; } -- cgit v1.2.1