From: Warren Jones <wjones@tc.fluke.com>
Date: Tue, 17 Jun 1997 13:34:32 +0000 (+1200)
Subject: perldoc doesn't grok Win32 UNC paths
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f72119fc50f0d88b02501ba41112f82ab99f0c3b;p=p5sagit%2Fp5-mst-13.2.git

perldoc doesn't grok Win32 UNC paths

p5p-msgid: 97Jun17.184420pdt.35728-1@gateway.fluke.com
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 129d985..999496b 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 '/'