Don't try to parse scripts declared as perl, ruby or python

This commit is contained in:
Vidar Holen 2013-07-07 13:22:29 -07:00
parent 2500b2cce6
commit a08e60cd07
1 changed files with 8 additions and 0 deletions

View File

@ -74,6 +74,14 @@ determineShell (T_Script _ shebang _) = normalize $ shellFor shebang
normalize "ksh" = return Ksh normalize "ksh" = return Ksh
normalize "zsh" = return Zsh normalize "zsh" = return Zsh
normalize "bash" = return Bash normalize "bash" = return Bash
normalize x | any (`isPrefixOf` x) [
"csh"
,"tcsh"
,"perl"
,"awk"
,"python"
,"ruby"
] = Nothing
normalize _ = return Bash normalize _ = return Bash
runBasicAnalysis f t = snd $ runState (doAnalysis f t) [] runBasicAnalysis f t = snd $ runState (doAnalysis f t) []