diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2014-06-09 18:53:36 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-06-12 14:27:20 +1000 |
| commit | 46e2868e06e3a90816b9788baa0ef60e02976ea2 (patch) | |
| tree | 419e6fc102dffa385812de9ada1a5e049db06abc /win32/win32.c | |
| parent | 4662a05932175fe185d382b9b1b730e2b5cfad25 (diff) | |
| download | perl-46e2868e06e3a90816b9788baa0ef60e02976ea2.tar.gz | |
Change sv_catpvn(…, "…", …) to sv_catpvs(…, "…")
The dual-life dist affected uses Devel::PPPort, so can safely use
sv_catpvs() even though it wasn't added until Perl v5.8.9.
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index b60145297a..26d419e25e 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -360,7 +360,7 @@ get_emd_part(SV **prev_pathp, STRLEN *const len, char *trailing_path, ...) if (!*prev_pathp) *prev_pathp = sv_2mortal(newSVpvs("")); else if (SvPVX(*prev_pathp)) - sv_catpvn(*prev_pathp, ";", 1); + sv_catpvs(*prev_pathp, ";"); sv_catpv(*prev_pathp, mod_name); if(len) *len = SvCUR(*prev_pathp); @@ -418,7 +418,7 @@ win32_get_xlib(const char *pl, const char *xlib, const char *libname, sv1 = sv2; } else if (sv2) { dTHX; - sv_catpvn(sv1, ";", 1); + sv_catpv(sv1, ";"); sv_catsv(sv1, sv2); } |