Changeset 8026 for lang/elisp/set-perl5lib/set-perl5lib.el

Timestamp:

03/17/08 14:48:25 (5 years ago)

Author:

typester

Message:

PERL5LIBが空の状態だとエラーるので、適当に対処。@kentaro: 適切に修正もとむ＞＜

Files:

• lang/elisp/set-perl5lib/set-perl5lib.el (modified) (1 diff)

lang/elisp/set-perl5lib/set-perl5lib.el

@@ -50 +50 @@
          (lib-path (perllib-check-path path-list ""))
          (current-perl5lib (getenv "PERL5LIB")))
-    (when (and lib-path
+    (when (or (and lib-path current-perl5lib
                (not (string-match lib-path current-perl5lib)))
+              (not current-perl5lib))
       (setenv "PERL5LIB" (concat lib-path ":" current-perl5lib))
       (message "Added %s into PERL5LIB" lib-path))))