tabbing bug

--HG-- branch : pmacs2
2007-06-26 20:27:22 +00:00 · 2007-06-26 20:27:22 +00:00 · c4ceafd22d
parent 5c2e5af0f2
commit c4ceafd22d
1 changed files with 5 additions and 4 deletions
--- a/mode_perl.py
+++ b/mode_perl.py
@ -114,9 +114,10 @@ class PerlTabber(tab2.StackTabber):
        self._opt_pop('cont')
        currlvl = tab2.StackTabber._handle_close_token(self, currlvl, y, i)
        token = self.get_token(y, i)
+        if self.is_rightmost_token(y, i):
            if token.string == '}':
                self._opt_pop('cont')
-        elif self.is_rightmost_token(y, i):
+            else:
                self._opt_append('cont', currlvl + 4)
        return currlvl
    def _handle_other_token(self, currlvl, y, i):