Permalink
Browse files

Merge pull request #21 from choroba/master

missing parentheses added
  • Loading branch information...
2 parents b0ff883 + 6ab119d commit 06f5668653a114991836139344dbe8f0674577af @renormalist renormalist committed Mar 9, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 cperl-mode.el
View
@@ -6959,7 +6959,7 @@ by CPerl."
(number-to-string (1- (elt elt 1))) ; Char pos 0-based
"\n")
(if (and (string-match "^[_a-zA-Z]+::" (car elt))
- (string-match "^" cperl-sub-regexp "[ \t]+\\([_a-zA-Z]+\\)[^:_a-zA-Z]"
+ (string-match (concat "^" cperl-sub-regexp "[ \t]+\\([_a-zA-Z]+\\)[^:_a-zA-Z]")
(elt elt 3)))
;; Need to insert the name without package as well
(setq lst (cons (cons (substring (elt elt 3)

0 comments on commit 06f5668

Please sign in to comment.