From c971b52fb1761656089d3281e8cebd8ba8e41c8a Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Tue, 6 May 2008 18:37:27 +0000
Subject: [PATCH] --HG-- branch : pmacs2

---
 mode/perl.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mode/perl.py b/mode/perl.py
index 022f395..50cc9f7 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -235,7 +235,7 @@ class PerlViewWordPerldoc(Method):
             cmd = "perldoc -t -T '%s'" % (word,)
         perllib = w.application.config.get('perl.lib')
         if perllib:
-            cmd = 'PERL5LIB=%r %s' % cmd
+            cmd = 'PERL5LIB=%r %s' % (w.mode.perllib, cmd)
         (status, data) = commands.getstatusoutput(cmd)
         if status == 0:
             return data