# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1199778605 0
# Node ID 1f0710a424814d701e2249c05af087f2efa1ff33
# Parent  29cecd4f960ac8a4231ff8ecb3e656509af57065
Kevin Ryde  <user42 at zip.com.au>

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

diff -r 29cecd4f960a -r 1f0710a42481 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Jan 08 05:21:00 2008 +0000
+++ b/lisp/progmodes/compile.el	Tue Jan 08 07:50:05 2008 +0000
@@ -273,8 +273,12 @@
 \\(?:,\\| 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\