small improvements to perl mode

--HG--
branch : pmacs2
This commit is contained in:
Erik Osheim 2012-09-10 15:24:16 -06:00
parent b3a29d3070
commit 733d522314
1 changed files with 5 additions and 3 deletions

View File

@ -301,11 +301,13 @@ class PerlSetLib(Method):
'''Set the path(s) to find perl modules''' '''Set the path(s) to find perl modules'''
args = [arg("lib", dt='path', p="Lib: ", dv=lambda w: '.')] args = [arg("lib", dt='path', p="Lib: ", dv=lambda w: '.')]
def _execute(self, w, **vargs): def _execute(self, w, **vargs):
w.application.config['perl.libs'] = vargs['lib'].split(':') libs = vargs['lib'].split(':')
w.application.config['perl.libs'] = libs
class PerlAddLib(PerlSetLib): class PerlAddLib(PerlSetLib):
'''Set the path(s) to find perl modules''' '''Add a path(s) to find perl modules'''
def _execute(self, w, **vargs): def _execute(self, w, **vargs):
w.application.config['perl.libs'].append(vargs['lib']) libs = vargs['lib'].split(':')
w.application.config['perl.libs'].extend(libs)
class PerlBase(Method): class PerlBase(Method):
bname = '*Perl*' bname = '*Perl*'