Kevin Ryde <user42 at zip.com.au>

(compilation-error-regexp-alist-alist): For perl, allow "during global
destruction" at end.

diff --git a/etc/ChangeLog b/etc/ChangeLog
index f5d77683c016801bb0fcb0749386fc016a90c3c7..e07c6808b3d46bd209879b55058516b9a0ddf916 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-08  Kevin Ryde  <user42@zip.com.au>
+
+       * compilation.txt (perl): Add a "during global destruction" sample.
+
 2008-01-08  Glenn Morris  <rgm@gnu.org>
 
        * calccard.tex, cs-dired-ref.tex, cs-refcard.tex, cs-survival.tex:

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f375e101d6c79115dd8131e50f356f8ebda5482f..4e750cb14c0e6d31247219f1c7397b3300b7008b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-08  Kevin Ryde  <user42@zip.com.au>
+
+       * progmodes/compile.el (compilation-error-regexp-alist-alist):
+       For perl, allow "during global destruction" at end.
+
 2008-01-08  Glenn Morris  <rgm@gnu.org>
 
        * 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 89f01392978c873e3b5742264a1d3ac25471ffe1..1fd0074dd41b72a8f31b5c00a5784a54e233df76 100644 (file)
--- 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\