summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 8a92c9514..eeecff4bc 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -212,11 +212,15 @@ gtkadd(gtkset_border_width($w->{window}, 2),
1, create_scrolled_window($AvailableList),
0, gtkpack(create_hbox(),
gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => sub {
- my @selected = $AvailableList->get_selected_indices or return;
+ my @selected = $AvailableList->get_selected_indices;
my ($mode, $channel, $key);
my $essid = $AvailableList->{data}["@selected"][0];
my $dhcp = 1; # assume dhcp for new networks
- &AddNet($essid, $mode, $channel, $dhcp, $key);
+ if ($essid) {
+ &AddNet($essid, $mode, $channel, $dhcp, $key);
+ } else {
+ print "ESSID is empty, skipping network\n";
+ }
}),
gtksignal_connect(Gtk2::Button->new(N("Rescan")), clicked => sub { &UpdateAvailable })
)