summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/scannerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/scannerdrake')
-rwxr-xr-xperl-install/standalone/scannerdrake26
1 files changed, 12 insertions, 14 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 61e92e692..2731505d0 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -635,13 +635,12 @@ sub sharewindow {
cancel => "",
},
# List the hosts
- [ if_($#list >= 0,
- { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => \@list }),
+ [ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => \@list },
{ val => N("Add host"),
type => 'button',
clicked_may_quit => sub {
@@ -786,13 +785,12 @@ sub sharewindow {
cancel => "",
},
# List the hosts
- [ if_($#list >= 0,
- { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => \@list }),
+ [ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => \@list },
{ val => N("Add host"),
type => 'button',
clicked_may_quit => sub {