Don't suggest removing $ in (( ${COLUMNS-80} ))

This commit is contained in:
Vidar Holen
2016-07-30 10:42:33 -07:00
parent 36263fb3f5
commit 6a71ff6f46

View File

@@ -1369,7 +1369,7 @@ checkArithmeticDeref params t@(TA_Expansion _ [b@(T_DollarBraced id _)]) =
unless (isException $ bracedString b) getWarning
where
isException [] = True
isException s = any (`elem` "/.:#%?*@$") s || isDigit (head s)
isException s = any (`elem` "/.:#%?*@$-") s || isDigit (head s)
getWarning = fromMaybe noWarning . msum . map warningFor $ parents params t
warningFor t =
case t of