From a4b3f3fa57819dd589671349587053c88280e160 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Mon, 25 Jun 2007 21:34:54 +0000
Subject: [PATCH] small update

--HG--
branch : pmacs2
---
 mode_perl.py | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/mode_perl.py b/mode_perl.py
index 1b53bed..b364cdf 100644
--- a/mode_perl.py
+++ b/mode_perl.py
@@ -89,11 +89,6 @@ class PerlGrammar(Grammar):
         PatternRule(name=r'function', pattern=r"(?:[a-zA-Z_][a-zA-Z_0-9]*::)*[a-zA-Z_][a-zA-Z_0-9]*(?= *\()"),
         PatternRule(name=r'class', pattern=r"(?:[a-zA-Z_][a-zA-Z_0-9]*::)*[a-zA-Z_][a-zA-Z_0-9]*(?=->)"),
 
-        # nested regions
-        #RegionRule(name=r'paren', start=r'\(', grammar=None, end=r'\)'),
-        #RegionRule(name=r'brace', start=r'{', grammar=None, end=r'}'),
-        #RegionRule(name=r'bracket', start=r'\[', grammar=None, end=r'\]'),
-
         # some basic stuff
         PatternRule(name=r'delimiter', pattern=r"[,;=\?(){}\[\]]|->|=>|(?<!:):(?!=:)"),
         PatternRule(name=r'operator', pattern=r"\+=|-=|\*=|/=|//=|%=|&=\|\^=|>>=|<<=|\*\*="),
@@ -314,6 +309,7 @@ class PerlCheckSyntax(method.Method):
     '''Check the syntax of a perl file'''
     def _execute(self, w, **vargs):
         app = w.application
+        app.set_error("Checking Syntax...")
         cmd = "perl -c -I '%s' '%s'" % (w.mode.perllib, w.buffer.path)
         (status, output) = commands.getstatusoutput(cmd)
         if status == 0: