--HG--

branch : pmacs2

mode/error.py

@@ -3,7 +3,7 @@ from method import Method
 import mode
 
 _error_regexes = [
-    r'at (?P<file>\S+) line (?P<line>\d+)$', #perl
+    r'at (?P<file>\S+) line (?P<line>\d+)\.?$', #perl
     r'File "(?P<file>.+?)", line (?P<line>\d+)(?:, in \S+)?$', #python
     r'^(?P<file>\S+?):(?P<line>\d+): ', #javac/gcc
     r'at \S+\((?P<file>.+?):(?P<line>\d+)\)$', #java
@@ -32,6 +32,8 @@ class ErrorGotoLine(Method):
             return
         errline = w.buffer.lines[y]
         path, line = m.group('file'), int(m.group('line'))
+        if path == '-':
+            path = w.buffer.orig_path
         b2 = a.open_path(path)
         a.switch_buffer(b2)
         a.methods['goto-line'].execute(b2.windows[0], lineno=line)

mode/perl.py

@@ -214,6 +214,8 @@ class PerlCheckSyntax(Method):
             args = ('perl', '-I', a.config.get('perl.lib', '.'), '-c', '-')
         retval = a.run_pipe(args, w.buffer, '*Perl-Syntax*', lambda x: x != 0,
                             modename='error')
+        b = a.get_buffer_by_name('*Perl-Syntax*')
+        b.orig_path = w.buffer.path
         if retval == 0: a.set_error("Syntax OK")
 
 class PerlViewModulePerldoc(Method):