1 files changed, 1 insertions, 5 deletions
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 ];
 }