changed check for unitialized variable

Author: Harley Pig

efm_perl.pl

@@ -52,9 +52,7 @@
 # need to turn on taint if it's on the shebang line.
 # naive check for [tT] switch ... will both t and T ever be used at the same time?
 my ( $taint ) = `head -n 1 $file` =~ /\s.*-.*?(t)/i;
-push @checks, "-$taint" if $taint ne '';
-
-my $checks = join ' ', @checks;
+push @checks, "-$taint" if defined $taint;
 
 my ( $message, $extracted_file, $lineno, $rest );