fixed dumb multi-line quoting bug

--HG-- branch : pmacs2
2007-07-25 21:09:44 +00:00 · 2007-07-25 21:09:44 +00:00 · 2acdf42c3b
parent 71a6beee8e
commit 2acdf42c3b
1 changed files with 5 additions and 0 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -130,6 +130,11 @@ class PerlTabber(tab2.StackTabber):
        elif fqname == 'heredoc.end':
            self._opt_pop('heredoc')
            self._opt_pop('cont')
+        elif fqname == 'quoted.start':
+            self._opt_append('quoted', currlvl + 4)
+        elif fqname == 'quoted.end':
+            self._opt_pop('cont')
+            self._opt_pop('quoted')
        elif fqname == 'evaldoc.start':
            self._opt_append('evaldoc', None)
        elif fqname == 'evaldoc.end':