Don't warn about single quotes in args to perl

2013-11-03 12:47:44 -08:00 · 2013-11-03 12:47:44 -08:00 · 8a3d259ae6
parent 3a9ae0ebf1
commit 8a3d259ae6
1 changed files with 1 additions and 1 deletions
--- a/ShellCheck/Analytics.hs
+++ b/ShellCheck/Analytics.hs
@ -651,7 +651,7 @@ checkSingleQuotedVariables t@(T_SingleQuoted id s) parents =
                _          -> return ()
  where
    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_]"
 checkSingleQuotedVariables _ _ = return ()