summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
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
commit9da394717b8b74c3069e8c0c55e5e8a73923cd4d (patch)
tree9c995c91b99770e7b13f7c813da586faa370546e /perl-install/modules.pm
parentd6c1139e5b21803f7b4f0918528b72e123c60396 (diff)
downloaddrakx-9da394717b8b74c3069e8c0c55e5e8a73923cd4d.tar
drakx-9da394717b8b74c3069e8c0c55e5e8a73923cd4d.tar.gz
drakx-9da394717b8b74c3069e8c0c55e5e8a73923cd4d.tar.bz2
drakx-9da394717b8b74c3069e8c0c55e5e8a73923cd4d.tar.xz
drakx-9da394717b8b74c3069e8c0c55e5e8a73923cd4d.zip
(load_raw) simplify
Diffstat (limited to 'perl-install/modules.pm')
-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;
}
}