d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

perl fix 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2008-05-06 19:12:43 +00:00
parent c971b52fb1
commit 6fd4cb109f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mode/perl.py
View File

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