summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-04-23 14:42:37 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-04-23 14:42:47 +0200
commitc6c88f839e868af7dea3a47b40c0604cee1c1a3b (patch)
tree0d8e0784126147e9194621253db83f5fa069acf1 /perl-install
parent034540283ee7a0e6e29a20687f6e97121330df70 (diff)
downloaddrakx-c6c88f839e868af7dea3a47b40c0604cee1c1a3b.tar
drakx-c6c88f839e868af7dea3a47b40c0604cee1c1a3b.tar.gz
drakx-c6c88f839e868af7dea3a47b40c0604cee1c1a3b.tar.bz2
drakx-c6c88f839e868af7dea3a47b40c0604cee1c1a3b.tar.xz
drakx-c6c88f839e868af7dea3a47b40c0604cee1c1a3b.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm6
1 files changed, 2 insertions, 4 deletions
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";