From c2b90b61b50912ff59d36bd0dc279930c2b76bf2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= Date: Fri, 4 Oct 2013 16:48:40 +0100 Subject: =?UTF-8?q?Change=20newSVpvn("=E2=80=A6",=20=E2=80=A6)=20to=20newS?= =?UTF-8?q?Vpvs("=E2=80=A6")?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The dual-life dists affected use Devel::PPPort, so can safely use newSVpvs() even though it wasn't added until Perl v5.8.9. --- win32/win32.c | 6 +++--- win32/wince.c | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'win32') diff --git a/win32/win32.c b/win32/win32.c index 9126eec6df..b60145297a 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -279,7 +279,7 @@ get_regstr_from(HKEY hkey, const char *valuename, SV **svp) { dTHX; if (!*svp) - *svp = sv_2mortal(newSVpvn("",0)); + *svp = sv_2mortal(newSVpvs("")); SvGROW(*svp, datalen); retval = RegQueryValueEx(handle, valuename, 0, NULL, (PBYTE)SvPVX(*svp), &datalen); @@ -358,7 +358,7 @@ get_emd_part(SV **prev_pathp, STRLEN *const len, char *trailing_path, ...) /* directory exists */ dTHX; if (!*prev_pathp) - *prev_pathp = sv_2mortal(newSVpvn("",0)); + *prev_pathp = sv_2mortal(newSVpvs("")); else if (SvPVX(*prev_pathp)) sv_catpvn(*prev_pathp, ";", 1); sv_catpv(*prev_pathp, mod_name); @@ -1785,7 +1785,7 @@ win32_getenv(const char *name) needlen = GetEnvironmentVariableA(name,NULL,0); if (needlen != 0) { - curitem = sv_2mortal(newSVpvn("", 0)); + curitem = sv_2mortal(newSVpvs("")); do { SvGROW(curitem, needlen+1); needlen = GetEnvironmentVariableA(name,SvPVX(curitem), diff --git a/win32/wince.c b/win32/wince.c index 63147cce3f..bbe8d31dd9 100644 --- a/win32/wince.c +++ b/win32/wince.c @@ -146,7 +146,7 @@ get_regstr_from(HKEY hkey, const char *valuename, SV **svp) if (retval == ERROR_SUCCESS && type == REG_SZ) { dTHX; if (!*svp) - *svp = sv_2mortal(newSVpvn("",0)); + *svp = sv_2mortal(newSVpvs("")); SvGROW(*svp, datalen); retval = XCERegQueryValueExA(handle, valuename, 0, NULL, (PBYTE)SvPVX(*svp), &datalen); @@ -226,7 +226,7 @@ get_emd_part(SV **prev_pathp, STRLEN *const len, char *trailing_path, ...) /* directory exists */ dTHX; if (!*prev_pathp) - *prev_pathp = sv_2mortal(newSVpvn("",0)); + *prev_pathp = sv_2mortal(newSVpvs("")); sv_catpvn(*prev_pathp, ";", 1); sv_catpv(*prev_pathp, mod_name); if(len) -- cgit v1.2.1