diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-04-15 12:11:32 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-04-15 12:11:32 +0000 |
commit | e04cf5d801dbf0907f58c2babc86db584b4058ec (patch) | |
tree | cedbd717f370809ccff5c515a2387a1667c27eeb /perl-install/standalone | |
parent | 371ad1bb671436c801448759036ba441dcc55823 (diff) | |
download | drakx-backup-do-not-use-e04cf5d801dbf0907f58c2babc86db584b4058ec.tar drakx-backup-do-not-use-e04cf5d801dbf0907f58c2babc86db584b4058ec.tar.gz drakx-backup-do-not-use-e04cf5d801dbf0907f58c2babc86db584b4058ec.tar.bz2 drakx-backup-do-not-use-e04cf5d801dbf0907f58c2babc86db584b4058ec.tar.xz drakx-backup-do-not-use-e04cf5d801dbf0907f58c2babc86db584b4058ec.zip |
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/harddrake2 | 4 |
1 files changed, 2 insertions, 2 deletions
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, |