From a0564b971b3938cf7a8e46678a72eb21723460f9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 23 May 2012 18:26:00 +0000 Subject: perl_checker cleanups --- rescue/drvinst | 2 +- rescue/tree/sbin/modprobe | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'rescue') 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 []\n"; my $name; # kernel calls us with modprobe -q -- , 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(' ', @_) }); } -- cgit v1.2.1