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 (file)
--- 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;
        }