Permalink
Browse files

changed check for unitialized variable

  • Loading branch information...
1 parent 93eab72 commit 78b25b1da8effba1e4634b627b2d97d73b44717c @harleypig harleypig committed Dec 22, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −3 tools/efm_perl.pl
View
@@ -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 );

0 comments on commit 78b25b1

Please sign in to comment.