diff options
| author | Warren Jones <wjones@tc.fluke.com> | 1997-06-18 01:34:32 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | f72119fc50f0d88b02501ba41112f82ab99f0c3b (patch) | |
| tree | da4c81bf486ab4bdc83ba9d605d5747666a9a13f /utils | |
| parent | 4935d2c2574073146066c5d9b654a47d71a2cc2a (diff) | |
| download | perl-f72119fc50f0d88b02501ba41112f82ab99f0c3b.tar.gz | |
perldoc doesn't grok Win32 UNC paths
p5p-msgid: 97Jun17.184420pdt.35728-1@gateway.fluke.com
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 129d985882..999496b8e2 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -137,6 +137,10 @@ sub containspod { local *DIR; local($")="/"; my(@p,$p,$cip); + $file =~ tr|\\|/| if $Is_MSWin32 or $^O eq 'os2'; + if ( $Is_MSWin32 and $file =~ s|^(//[^/]+)/|| ) { # UNC path? + push(@p,$1); + } foreach $p (split(/\//, $file)){ if (($Is_VMS or $Is_MSWin32 or $^O eq 'os2') and not scalar @p) { # VMSish filesystems don't begin at '/' |