From 76d7f942bf929f10b6da9bd447199ee08de54bb7 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Fri, 22 Jun 2007 22:51:44 +0000
Subject: [PATCH] --HG-- branch : pmacs2

---
 mode_perl.py | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/mode_perl.py b/mode_perl.py
index bbc2c2f..287c962 100644
--- a/mode_perl.py
+++ b/mode_perl.py
@@ -387,9 +387,7 @@ class PerlGotoFunction(method.Method):
         name = vargs['name']
         functions = w.mode.get_functions()
         if name in functions:
-            number = functions[name]
-            p = Point(0, number)
-            w.goto(p)
+            w.goto(Point(0, functions[name]))
         else:
             w.application.set_error("Function %r was not found" % name)