Don't try to parse scripts declared as perl, ruby or python
This commit is contained in:
parent
2500b2cce6
commit
a08e60cd07
|
@ -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) []
|
||||||
|
|
Loading…
Reference in New Issue