fixed dumb multi-line quoting bug

--HG--
branch : pmacs2
This commit is contained in:
moculus 2007-07-25 21:09:44 +00:00
parent 71a6beee8e
commit 2acdf42c3b
1 changed files with 5 additions and 0 deletions

View File

@ -130,6 +130,11 @@ class PerlTabber(tab2.StackTabber):
elif fqname == 'heredoc.end': elif fqname == 'heredoc.end':
self._opt_pop('heredoc') self._opt_pop('heredoc')
self._opt_pop('cont') 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': elif fqname == 'evaldoc.start':
self._opt_append('evaldoc', None) self._opt_append('evaldoc', None)
elif fqname == 'evaldoc.end': elif fqname == 'evaldoc.end':