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 (file)
--- 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]))))