fixed builtin/module ambiguity for perldoc

--HG-- branch : pmacs2
2008-05-06 20:02:03 +00:00 · 2008-05-06 20:02:03 +00:00 · 48571071c1
parent 6fd4cb109f
commit 48571071c1
1 changed files with 10 additions and 9 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -257,7 +257,8 @@ class PerlViewWordPerldoc(Method):
            w.application.set_error('invalid word: %r' % word)
            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('::')
            while len(parts) > 0:
                newword = '::'.join(parts)