From 9da394717b8b74c3069e8c0c55e5e8a73923cd4d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 2 Mar 2012 12:15:28 +0000
Subject: (load_raw) simplify

---
 perl-install/modules.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/modules.pm')

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;
 	}
     }
 
-- 
cgit v1.2.1