diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2013-10-04 16:48:40 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2014-06-12 14:27:20 +1000 |
commit | c2b90b61b50912ff59d36bd0dc279930c2b76bf2 (patch) | |
tree | 5fa5148a2822eb21f9de30c39490d758ffd524f9 /win32 | |
parent | 2b2126557600d964281cf37893d936e401b1a5cc (diff) | |
download | perl-c2b90b61b50912ff59d36bd0dc279930c2b76bf2.tar.gz |
Change newSVpvn("…", …) to newSVpvs("…")
The dual-life dists affected use Devel::PPPort, so can safely use
newSVpvs() even though it wasn't added until Perl v5.8.9.
Diffstat (limited to 'win32')
-rw-r--r-- | win32/win32.c | 6 | ||||
-rw-r--r-- | win32/wince.c | 4 |
2 files changed, 5 insertions, 5 deletions
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) |