From c6c88f839e868af7dea3a47b40c0604cee1c1a3b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 23 Apr 2016 14:42:37 +0200
Subject: perl_checker cleanups

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

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 770cbbdde..9fd9e2ded 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -684,7 +684,7 @@ sub serialPort2text {
 =cut
 
 sub getSerialModem {
-    my ($modules_conf, $o_mouse) = @_;
+    my ($_modules_conf, $o_mouse) = @_;
     my $mouse = $o_mouse || {};
     $mouse->{device} = readlink "/dev/mouse";
     my $serdev = arch() =~ /mips/ ? "8250" : "serial";
@@ -1273,9 +1273,7 @@ sub dmidecode() {
     return @dmis if $dmidecode_already_runned;
 
     return if $>;
-    my ($ver, @l) = arch() =~ /86/ ? run_program::get_stdout('dmidecode') : ();
-
-    my ($major, $minor) = $ver =~ /(\d+)\.(\d+)/;
+    my ($_ver, @l) = arch() =~ /86/ ? run_program::get_stdout('dmidecode') : ();
 
     #- drop header
     shift @l while @l && $l[0] ne "\n";
-- 
cgit v1.2.1