fixed builtin/module ambiguity for perldoc

--HG--
branch : pmacs2
This commit is contained in:
moculus 2008-05-06 20:02:03 +00:00
parent 6fd4cb109f
commit 48571071c1
1 changed files with 10 additions and 9 deletions

View File

@ -257,7 +257,8 @@ class PerlViewWordPerldoc(Method):
w.application.set_error('invalid word: %r' % word) w.application.set_error('invalid word: %r' % word)
return return
# first try it is a package # first try it is a package, unless it's a builtin
if not token.name == "perl_builtin":
parts = word.split('::') parts = word.split('::')
while len(parts) > 0: while len(parts) > 0:
newword = '::'.join(parts) newword = '::'.join(parts)