Select Code to Download

use Carp;

...

tst2();

(defvar perl-compilation-error-regexp-alist
  ;; Contributed by Martin Jost
...
  ;; This look like a paranoiac regexp: could anybody find a better on
+e? (which WORK).
  ;;'(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\
+)[\\.,]" 2 3))
  "Alist that specifies how to match errors in perl output.

;; NB as it stands the code in cperl-mode assumes this only has one
;; element. If XEmacs 19 support were dropped, this could all be simpl
+ified.
...
  '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[
+\\., \n]"
     2 3))
  "Alist that specifies how to match errors in perl output.")