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 /os2/OS2 | |
| 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 'os2/OS2')
| -rw-r--r-- | os2/OS2/OS2-Process/Process.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/os2/OS2/OS2-Process/Process.xs b/os2/OS2/OS2-Process/Process.xs index 05befa02cc..81eb8fb766 100644 --- a/os2/OS2/OS2-Process/Process.xs +++ b/os2/OS2/OS2-Process/Process.xs @@ -427,7 +427,7 @@ myQueryWindowText(HWND hwnd) return &PL_sv_undef; return &PL_sv_no; } - sv = newSVpvn("", 0); + sv = newSVpvs(""); SvGROW(sv, l + 1); len = QueryWindowText(hwnd, l + 1, SvPV_force(sv, n_a)); if (len != l) { @@ -459,7 +459,7 @@ QueryWindowSWP(HWND hwnd) SV * myQueryClassName(HWND hwnd) { - SV *sv = newSVpvn("",0); + SV *sv = newSVpvs(""); STRLEN l = 46, len = 0, n_a; while (l + 1 >= len) { @@ -534,7 +534,7 @@ myWinQueryAtomName(ATOM atom, HATOMTBL hAtomTbl) ULONG len = QueryAtomLength(hAtomTbl, atom); if (len) { /* Probably always so... */ - SV *sv = newSVpvn("",0); + SV *sv = newSVpvs(""); STRLEN n_a; SvGROW(sv, len + 1); @@ -755,7 +755,7 @@ swentries_list() int num, n = 0; STRLEN n_a; PSWBLOCK pswblk; - SV *sv = newSVpvn("",0); + SV *sv = newSVpvs(""); if (!(_emx_env & 0x200)) croak("swentries_list not implemented on DOS"); /* not OS/2. */ |