Fixed Perl warning.
authorshort <>
Wed, 19 Nov 2003 11:00:26 +0000 (11:00 +0000)
committershort <>
Wed, 19 Nov 2003 11:00:26 +0000 (11:00 +0000)
kernel/Linux/prepmod.in

index 4555dcd..dbe79ec 100755 (executable)
@@ -44,7 +44,7 @@ sub modext { my($uname_r)=@_; ($uname_r lt "2.5" ? "o" : "ko"); }
 
 # mount(8) will util-linux/lib/env.c/sanitize_env()
 # including the clearance our $PATH:
-$ENV{"PATH"}=join(":",qw(/usr/local/bin /usr/bin /bin),$ENV{"PATH"});
+$ENV{"PATH"}=join(":",qw(/usr/local/bin /usr/bin /bin),($ENV{"PATH"} || ()));
 
 my $lufsd_bin;
 if ($0 eq "lufsd" || $0=~m#/lufsd$#) {