From e04cf5d801dbf0907f58c2babc86db584b4058ec Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 15 Apr 2005 12:11:32 +0000 Subject: perl_checker cleanups --- perl-install/standalone/harddrake2 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 1a39ea662..8aa87bda6 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -472,7 +472,7 @@ $_->hide foreach $module_cfg_button, $config_button; # hide buttons while no dev { $SIG{CHLD} = undef; #local $SIG{CHLD} = sub {}; - if (my @packages = grep { !member($_, qw(ati.2 dmraid gnome-alsamixer mdadm xmms-alsa)) } simple_read_rpmsrate()) { + if (my @packages = difference2([ simple_read_rpmsrate() ], [ qw(ati.2 dmraid gnome-alsamixer mdadm xmms-alsa) ])) { my $do_pkgs = do_pkgs_standalone->new; my @packages2install = grep { $do_pkgs->is_available($_) && !$do_pkgs->is_installed($_) } @packages; undef $wait; @@ -542,7 +542,7 @@ sub popup_menu { }; } -sub upload { +sub upload() { my $dialog = _create_dialog(N("Upload the hardware list"), { if_(!$::isEmbedded, transient => $w->{real_window}) }); #, height => 400 gtkpack($dialog->vbox, -- cgit v1.2.1