summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-08-24 15:32:34 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-08-24 15:32:34 +0000
commit6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9 (patch)
tree7ab9850ed5a38285a5f3cee862fc3eb0756ee337 /perl-install
parentd54c1557c01a38d6f45e9c9c20bae831c487f173 (diff)
downloaddrakx-backup-do-not-use-6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9.tar
drakx-backup-do-not-use-6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9.tar.gz
drakx-backup-do-not-use-6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9.tar.bz2
drakx-backup-do-not-use-6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9.tar.xz
drakx-backup-do-not-use-6ff062ef326d4fd1afedb080a82f0c6cc5d7aeb9.zip
- Reverted workarounds for bug #17718, the bug is now really fixed,
the problem was in /usr/lib/libDrakX/interactive/gtk.pm.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm26
-rwxr-xr-xperl-install/standalone/scannerdrake26
2 files changed, 24 insertions, 28 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index ea67cd001..dfab0d70f 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -164,13 +164,12 @@ If some of these measures lead to problems for you, turn this option off, but th
cancel => "",
},
# List the hosts
- [ if_($#{$sharehosts->{list}} >= 0,
- { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => $sharehosts->{list} }),
+ [ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => $sharehosts->{list} },
{ val => N("Add host/network"),
type => 'button',
clicked_may_quit => sub {
@@ -350,13 +349,12 @@ N("Examples for correct IPs:\n") .
cancel => "",
},
# List the hosts
- [ if_($#{$browsepoll->{list}} >= 0,
- { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => $browsepoll->{list} }),
+ [ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => $browsepoll->{list} },
{ val => N("Add server"),
type => 'button',
clicked_may_quit => sub {
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 {