summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-02 12:15:28 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-02 12:15:28 +0000
commit9fe2e33277d058b9377e95c9100b9a717b0561dc (patch)
tree9c995c91b99770e7b13f7c813da586faa370546e
parentb76fc797b1aa0cc01d18ca13da8e4e8c28ed9db3 (diff)
downloaddrakx-backup-do-not-use-9fe2e33277d058b9377e95c9100b9a717b0561dc.tar
drakx-backup-do-not-use-9fe2e33277d058b9377e95c9100b9a717b0561dc.tar.gz
drakx-backup-do-not-use-9fe2e33277d058b9377e95c9100b9a717b0561dc.tar.bz2
drakx-backup-do-not-use-9fe2e33277d058b9377e95c9100b9a717b0561dc.tar.xz
drakx-backup-do-not-use-9fe2e33277d058b9377e95c9100b9a717b0561dc.zip
(load_raw) simplify
-rw-r--r--perl-install/modules.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 929780374..d8da3b8aa 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -77,14 +77,14 @@ sub load_raw {
if (-f "/proc/net/packet") {
log::l("$mod already loaded");
} else {
- @$l = (@$l, $mod);
+ push @$l, $mod;
}
} elsif (cat_("/proc/filesystems") =~ /$mod/) {
log::l("$mod already loaded");
} elsif ($mod =~ /serial/) {
# hack ... must find who tries to load the module serial
} else {
- @$l = (@$l, $mod);
+ push @$l, $mod;
}
}