perl_checker cleanups

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(' ', @_) });
 }