perldoc patch
authorKenneth Albanowski <kjahds@kjahds.com>
Mon, 30 Sep 1996 02:00:09 +0000 (22:00 -0400)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Mon, 30 Sep 1996 02:00:09 +0000 (22:00 -0400)
Ilya has found that this change makes perldoc much more useful under OS/2.

utils/perldoc.PL

index 46a89d0..07540c5 100644 (file)
@@ -113,8 +113,8 @@ sub containspod {
      local($")="/";
      my(@p,$p,$cip);
      foreach $p (split(/\//, $file)){
      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;
        }
            push(@p,$p);
            next;
        }