diff options
| author | Kenneth Albanowski <kjahds@kjahds.com> | 1996-09-29 22:00:09 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-29 22:00:09 -0400 |
| commit | 9c9e9fb7fc8b577e8ba8d0060ab0c969ea53a980 (patch) | |
| tree | e648cabacd655677d8d8a178bfab4f06c2384742 /utils | |
| parent | b73edd974ff6de4630341da3b93d562a24ff05d7 (diff) | |
| download | perl-9c9e9fb7fc8b577e8ba8d0060ab0c969ea53a980.tar.gz | |
perldoc patch
Ilya has found that this change makes perldoc much more useful under OS/2.
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; } |