From: Jan Dubois <jand@activestate.com>
Date: Thu, 16 Jun 2005 11:43:15 +0000 (-0700)
Subject: Strip \\?\ prefix from Perl path in win32/win32.c:set_w32_module_name()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be9da6a9f72474caf68c6253e58eb38c3d447728;p=p5sagit%2Fp5-mst-13.2.git

Strip \\?\ prefix from Perl path in win32/win32.c:set_w32_module_name()
From: "Jan Dubois" <jand@ActiveState.com>
Message-Id: <200506161843.j5GIhKhL024472@smtp3.ActiveState.com>

p4raw-id: //depot/perl@24880
---

diff --git a/win32/win32.c b/win32/win32.c
index 40e28f5..8f1a8ac 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -138,6 +138,10 @@ set_w32_module_name(void)
 				: w32_perldll_handle),
 		      w32_module_name, sizeof(w32_module_name));
 
+    /* remove \\?\ prefix */
+    if (memcmp(w32_module_name, "\\\\?\\", 4) == 0)
+        memmove(w32_module_name, w32_module_name+4, strlen(w32_module_name+4)+1);
+
     /* try to get full path to binary (which may be mangled when perl is
      * run from a 16-bit app) */
     /*PerlIO_printf(Perl_debug_log, "Before %s\n", w32_module_name);*/