perl fix

--HG--
branch : pmacs2

mode/perl.py

@@ -201,7 +201,7 @@ class PerlSetLib(Method):
     args = [Argument("lib", type=type(""), prompt="Location of lib: ",
                             default=default.build_constant("."))]
     def _execute(self, w, **vargs):
-        w.mode.perllib = vargs['lib']
+        w.application.config['perl.lib'] = vargs['lib']
     
 class PerlCheckSyntax(Method):
     '''Check the syntax of a perl file'''
@@ -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' % (w.mode.perllib, cmd)
+            cmd = 'PERL5LIB=%r %s' % (perllib, cmd)
         (status, data) = commands.getstatusoutput(cmd)
         if status == 0:
             return data