From 3e99b6ac6c01c0ea9d5edd68101acb4d2769fa2d Mon Sep 17 00:00:00 2001 From: moculus Date: Fri, 9 May 2008 20:01:58 +0000 Subject: [PATCH] --HG-- branch : pmacs2 --- mode/perl.py | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/mode/perl.py b/mode/perl.py index 0868fc7..513318c 100644 --- 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