From: Glenn Morris Date: Tue, 8 Jan 2008 07:54:04 +0000 (+0000) Subject: Kevin Ryde X-Git-Tag: emacs-pretest-22.1.90~135 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70b79a60116857edc09f2a08186ef39fade3d10a;p=emacs.git Kevin Ryde (compilation-error-regexp-alist-alist): For perl, allow "during global destruction" at end. --- diff --git a/etc/ChangeLog b/etc/ChangeLog index f5d77683c01..e07c6808b3d 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2008-01-08 Kevin Ryde + + * compilation.txt (perl): Add a "during global destruction" sample. + 2008-01-08 Glenn Morris * calccard.tex, cs-dired-ref.tex, cs-refcard.tex, cs-survival.tex: diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f375e101d6c..4e750cb14c0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-01-08 Kevin Ryde + + * progmodes/compile.el (compilation-error-regexp-alist-alist): + For perl, allow "during global destruction" at end. + 2008-01-08 Glenn Morris * diff-mode.el (diff-end-of-hunk): Don't match empty lines in diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 89f01392978..1fd0074dd41 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -273,8 +273,12 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) \\(?:,\\| in\\| of\\)? file \\(.*?\\):?$" 3 1 2) + ;; "during global destruction": This comes out under "use + ;; warnings" in recent perl when breaking circular references + ;; during program or thread exit. (perl - " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\)" 1 2) + " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| \ +during global destruction\\.$\\)" 1 2) (rxp "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\