Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #21 from choroba/master

missing parentheses added
  • Loading branch information...
commit 06f5668653a114991836139344dbe8f0674577af 2 parents b0ff883 + 6ab119d
@renormalist renormalist authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  cperl-mode.el
View
2  cperl-mode.el
@@ -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)
Please sign in to comment.
Something went wrong with that request. Please try again.