summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-11 06:08:24 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-11 06:08:24 +0000
commite4ce61518ac20e6618ea983731ceb5346d707c88 (patch)
treef21c86d7213853fd0729ef3f0c751b3358b93a54 /perl-install
parentce12d58b78f6f7343473f714e5b93f80b5df3737 (diff)
downloaddrakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar
drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.gz
drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.bz2
drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.xz
drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.zip
only one item can be selected in the known list
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 8a4272bcb..a375d82a0 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -115,12 +115,12 @@ gtkadd(gtkset_border_width($w->{window}, 2),
1, create_scrolled_window($KnownList),
0, gtkpack(create_hbox(),
gtksignal_connect(Gtk2::Button->new("Remove"), clicked => sub {
- my @selected = $KnownList->get_selected_indices;
- splice @{$KnownList->{data}}, "@selected", 1;
+ my ($selected) = $KnownList->get_selected_indices;
+ splice @{$KnownList->{data}}, $selected, 1;
}),
gtksignal_connect(Gtk2::Button->new("Connect"), clicked => sub {
- my @selected = $KnownList->get_selected_indices;
- &ConnectNow(@selected);
+ my ($selected) = $KnownList->get_selected_indices;
+ &ConnectNow($selected);
}),
gtksignal_connect(Gtk2::Button->new("Save"), clicked => sub { &WriteConfig })
)