summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:26:00 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:26:00 +0000
commita0564b971b3938cf7a8e46678a72eb21723460f9 (patch)
treed6c3434f0b8e14f91c71dca009a12717f7a79130
parent553165d98600dd74ae12d13dc585455be7d78303 (diff)
downloaddrakx-backup-do-not-use-a0564b971b3938cf7a8e46678a72eb21723460f9.tar
drakx-backup-do-not-use-a0564b971b3938cf7a8e46678a72eb21723460f9.tar.gz
drakx-backup-do-not-use-a0564b971b3938cf7a8e46678a72eb21723460f9.tar.bz2
drakx-backup-do-not-use-a0564b971b3938cf7a8e46678a72eb21723460f9.tar.xz
drakx-backup-do-not-use-a0564b971b3938cf7a8e46678a72eb21723460f9.zip
perl_checker cleanups
-rwxr-xr-xrescue/drvinst2
-rwxr-xr-xrescue/tree/sbin/modprobe2
2 files changed, 2 insertions, 2 deletions
diff --git a/rescue/drvinst b/rescue/drvinst
index cc7fb4fa2..d225755bf 100755
--- a/rescue/drvinst
+++ b/rescue/drvinst
@@ -21,7 +21,7 @@ my @types = @ARGV;
sub install_module_raw {
my ($driver, $o_descr) = @_;
- print STDERR "Installing driver $driver", $o_descr ? " (for \"$o_descr\")" : '', "\n";
+ print STDERR "Installing driver $driver", $o_descr ? qq( (for "$o_descr")) : '', "\n";
system("/sbin/modprobe", $driver) and print "\tfailed\n";
}
diff --git a/rescue/tree/sbin/modprobe b/rescue/tree/sbin/modprobe
index 0e5eaea2c..704ee6b0f 100755
--- a/rescue/tree/sbin/modprobe
+++ b/rescue/tree/sbin/modprobe
@@ -9,7 +9,7 @@ sub modprobe {
!@_ || $_[0] =~ /^-?-h/ and die "usage: modprobe <module> [<options...>]\n";
my $name;
# kernel calls us with modprobe -q -- <module>, so ignore options
- do { $name= shift } while substr($name, 0, 1) eq "-";
+ do { $name = shift } while substr($name, 0, 1) eq "-";
list_modules::load_default_moddeps();
modules::load_with_options([ $name ], { $name => join(' ', @_) });
}