From: Kenneth Albanowski <kjahds@kjahds.com>
Date: Mon, 30 Sep 1996 02:00:09 +0000 (-0400)
Subject: perldoc patch
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9c9e9fb7fc8b577e8ba8d0060ab0c969ea53a980;p=platform%2Fupstream%2Fperl.git

perldoc patch

Ilya has found that this change makes perldoc much more useful under OS/2.
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 46a89d0..07540c5 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -113,8 +113,8 @@ sub containspod {
      local($")="/";
      my(@p,$p,$cip);
      foreach $p (split(/\//, $file)){
-	if ($Is_VMS and not scalar @p) {
-	    # VMS filesystems don't begin at '/'
+	if (($Is_VMS or $^O eq 'os2') and not scalar @p) {
+	    # VMSish filesystems don't begin at '/'
 	    push(@p,$p);
 	    next;
 	}