From: Warren Jones <wjones@tc.fluke.com>
Date: Wed, 18 Jun 1997 09:11:23 +0000 (+1200)
Subject: Win32 UNC path causes autoload to fail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba42ef2f2ea88c3f5a11e84f45a088a96c09b9b5;p=p5sagit%2Fp5-mst-13.2.git

Win32 UNC path causes autoload to fail

This is a bug report for perl from wjones@tc.fluke.com,
generated with the help of perlbug 1.17 running under perl 5.004.

p5p-msgid: 97Jun18.163826pdt.35714-1@gateway.fluke.com
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 71a53e8..ccef138 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2262,6 +2262,9 @@ PP(pp_require)
 #ifdef DOSISH
       || (name[0] && name[1] == ':')
 #endif
+#ifdef WIN32
+      || (name[0] == '\\' && name[1] == '\\')	/* UNC path */
+#endif
 #ifdef VMS
 	|| (strchr(name,':')  || ((*name == '[' || *name == '<') &&
 	    (isALNUM(name[1]) || strchr("$-_]>",name[1]))))