From 9a87e554dce161ed92cf1f723a5e77fb76b3ade5 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Tue, 13 May 2008 20:42:37 +0000
Subject: [PATCH] --HG-- branch : pmacs2

---
 mode/perl.py | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/mode/perl.py b/mode/perl.py
index 5be2f79..e6a5320 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -549,6 +549,10 @@ class PerlContext(context.Context):
                     stack.append(t.string)
                     starting = False
                 elif t.name == 'delimiter' and t.string == '}':
+                    if not stack:
+                        # we are totally hosed. start over. ugh.
+                        self.build_name_map()
+                        return
                     stack.pop(-1)
             if curr:
                 self.namelines[i] = (curr, tuple(stack))