changeset 87640:e541884bcfee

Kevin Ryde <user42 at zip.com.au> (compilation-error-regexp-alist-alist): For perl, allow "during global destruction" at end.
author Glenn Morris <rgm@gnu.org>
date Tue, 08 Jan 2008 07:49:57 +0000
parents cf7db98ca95f
children 7a99c73a3fc2
files lisp/progmodes/compile.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Tue Jan 08 05:17:47 2008 +0000
+++ b/lisp/progmodes/compile.el	Tue Jan 08 07:49:57 2008 +0000
@@ -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 @@
 \\(?:,\\| 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\