Fix fontification of %d in strings in cperl-mode

* lisp/progmodes/cperl-mode.el (cperl-init-faces): Don't fontify
directives like %d in strings as hashes (bug#22867).

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 5ecd5668b343aac4e12b1dc2c59e1e4683ec90d6..6122caf51894f03e2ae2faec8490226003f3d9f0 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5753,7 +5753,7 @@ indentation and initial hashes.  Behaves usually outside of comment."
              (if (eq (char-after (match-beginning 2)) ?%)
                  'cperl-hash-face
                'cperl-array-face)
-             t)                        ; arrays and hashes
+             nil)                      ; arrays and hashes
             ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
              1
              (if (= (- (match-end 2) (match-beginning 2)) 1)