summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/harddrake2
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-04-15 12:11:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-04-15 12:11:32 +0000
commite04cf5d801dbf0907f58c2babc86db584b4058ec (patch)
treecedbd717f370809ccff5c515a2387a1667c27eeb /perl-install/standalone/harddrake2
parent371ad1bb671436c801448759036ba441dcc55823 (diff)
downloaddrakx-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/harddrake2')
-rwxr-xr-xperl-install/standalone/harddrake24
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,