From 2acdf42c3b103a0a0db42b0dd3b30178f090047f Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Wed, 25 Jul 2007 21:09:44 +0000
Subject: [PATCH] fixed dumb multi-line quoting bug

--HG--
branch : pmacs2
---
 mode/perl.py | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mode/perl.py b/mode/perl.py
index 3ca481b..8ecf82b 100644
--- 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':