--HG--

branch : pmacs2
2008-05-09 20:01:58 +00:00 · 2008-05-09 20:01:58 +00:00 · 3e99b6ac6c
parent 048ff560a5
commit 3e99b6ac6c
1 changed files with 4 additions and 1 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -755,6 +755,9 @@ class Perl(mode.Fundamental):
    def get_line_function(self, y):
        if self.funclines is None:
            self.build_function_map()
-        return self.funclines[y]
+        if y < len(self.funclines):
+            return self.funclines[y]
+        else:
+            return None

 install = Perl.install