(cperl-perldoc): Require man before binding `manual-program'.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2001-11-20  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* progmodes/cperl-mode.el (cperl-perldoc): Require man before binding
+	`manual-program'.
+
 2001-11-19  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm.

lisp/progmodes/cperl-mode.el

@@ -6770,6 +6770,7 @@ We suppose that the regexp is scanned already."
                    (error "No perldoc args given")
                  default-entry)
              input))))
+  (require 'man)
   (let* ((is-func (and
 		   (string-match "^[a-z]+$" word)
 		   (string-match (concat "^" word "\\>")
@@ -6777,7 +6778,6 @@ We suppose that the regexp is scanned already."
 				  'cperl-short-docs
 				  'variable-documentation))))
 	 (manual-program (if is-func "perldoc -f" "perldoc")))
-    (require 'man)
     (Man-getpage-in-background word)))
 
 (defun cperl-perldoc-at-point ()