perl compilation error regexp [patch]

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 594 bytes --]

Perl can add a "during global destruction" to its error message output
in certain circumstances, eg. foo.pl below

	(in cleanup) something bad at foo.pl line 3 during global destruction.

It'd be nice for compilation-mode to recognise that:

2007-12-28  Kevin Ryde  <user42@zip.com.au>

	* progmodes/compile.el (compilation-error-regexp-alist-alist): For
	perl, allow "during global destruction" at end.  This comes out under
	"use warnings" in recent perl when breaking circular references during
	program or thread exit.

	* compilation.txt (perl): Add a "during global destruction" sample.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: foo.pl --]
[-- Type: text/x-perl, Size: 111 bytes --]

#!/usr/bin/perl
use warnings;
sub DESTROY { die "something bad"; }
my $x; $x = bless {x=>\$x}, 'main';
exit 0;

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: compile.el.perl-glob.diff --]
[-- Type: text/x-diff, Size: 532 bytes --]

*** compile.el	29 Dec 2007 10:35:49 +1100	1.448
--- compile.el	29 Dec 2007 10:36:06 +1100	
***************
*** 281,287 ****
       3 1 2)
  
      (perl
!      " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\)" 1 2)
  
      (rxp
       "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\
--- 281,287 ----
       3 1 2)
  
      (perl
!      " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| during global destruction\\.$\\)" 1 2)
  
      (rxp
       "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #4: compilation.txt.perl-glob.diff --]
[-- Type: text/x-diff, Size: 374 bytes --]

*** compilation.txt	29 Dec 2007 10:41:30 +1100	1.17
--- compilation.txt	29 Dec 2007 10:49:59 +1100	
***************
*** 287,292 ****
--- 287,293 ----
  syntax error at automake line 922, near "':'"
  Died at test.pl line 27.
  store::odrecall('File_A', 'x2') called at store.pm line 90
+ 	(in cleanup) something bad at foo.pl line 3 during global destruction.
  
  
  * RXP

[-- Attachment #5: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel