diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 46a89d011f..07540c546b 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; } |