From 049dcb6f8cba0727cc23122dc38d8c75965190c2 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Tue, 8 Jan 2008 07:53:53 +0000
Subject: [PATCH] Kevin Ryde  <user42 at zip.com.au>

(compilation-error-regexp-alist-alist): For perl, allow "during global
destruction" at end.
---
 etc/ChangeLog             | 4 ++++
 lisp/ChangeLog            | 5 +++++
 lisp/progmodes/compile.el | 9 +++++++--
 3 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/etc/ChangeLog b/etc/ChangeLog
index eef42d5a09..dd70823418 100644
--- 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-06  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* PROBLEMS:
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0825f7944..a31a97d3ce 100644
--- 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 6781862889..444d3b44e5 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1,7 +1,8 @@
 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages
 
 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-;;   2001, 2002, 2003, 2004, 2005, 2006, 2007  Free Software Foundation, Inc.
+;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Authors: Roland McGrath <roland@gnu.org>,
 ;;	    Daniel Pfeiffer <occitan@esperanto.org>
@@ -280,8 +281,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\
-- 
2.20.1