Don't warn about single quotes in args to perl
This commit is contained in:
parent
3a9ae0ebf1
commit
8a3d259ae6
|
@ -651,7 +651,7 @@ checkSingleQuotedVariables t@(T_SingleQuoted id s) parents =
|
||||||
_ -> return ()
|
_ -> return ()
|
||||||
where
|
where
|
||||||
probablyOk t =
|
probablyOk t =
|
||||||
any (\x -> isParamTo parents x t) ["awk", "trap"]
|
any (\x -> isParamTo parents x t) ["awk", "trap", "perl"]
|
||||||
re = mkRegex "\\$[{(0-9a-zA-Z_]"
|
re = mkRegex "\\$[{(0-9a-zA-Z_]"
|
||||||
checkSingleQuotedVariables _ _ = return ()
|
checkSingleQuotedVariables _ _ = return ()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue