From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 20:11:20 +0000 (+0000)
Subject: allow REG_EXPAND_SZ keys in Windows registry (from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c94caf4a2d926d09d8fc04aa926eefd20ba5ed7;p=p5sagit%2Fp5-mst-13.2.git

allow REG_EXPAND_SZ keys in Windows registry (from
John Clayton <John.Clayton@barclayscapital.com>)

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

diff --git a/win32/win32.c b/win32/win32.c
index 840274b..e10b115 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -177,7 +177,9 @@ get_regstr_from(HKEY hkey, const char *valuename, SV **svp)
     if (retval == ERROR_SUCCESS) {
 	DWORD datalen;
 	retval = RegQueryValueEx(handle, valuename, 0, &type, NULL, &datalen);
-	if (retval == ERROR_SUCCESS && type == REG_SZ) {
+	if (retval == ERROR_SUCCESS
+	    && (type == REG_SZ || type == REG_EXPAND_SZ))
+	{
 	    dTHXo;
 	    if (!*svp)
 		*svp = sv_2mortal(newSVpvn("",0));