summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorWarren Jones <wjones@tc.fluke.com>1997-06-18 21:11:23 +1200
committerTim Bunce <Tim.Bunce@ig.co.uk>1997-08-07 00:00:00 +1200
commitba42ef2f2ea88c3f5a11e84f45a088a96c09b9b5 (patch)
tree2dfa48386feff348bb59869973ede631cbff6e35 /pp_ctl.c
parent756698e49da5b17014f51650e301ccc98df5154e (diff)
downloadperl-ba42ef2f2ea88c3f5a11e84f45a088a96c09b9b5.tar.gz
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
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 71a53e820a..ccef138f43 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]))))