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 | |
| 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')
| -rw-r--r-- | os2/OS2/OS2-Process/Process.xs | 8 | ||||
| -rw-r--r-- | os2/os2.c | 4 |
2 files changed, 6 insertions, 6 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. */ @@ -3855,7 +3855,7 @@ XS(XS_OS2__headerInfo) if (size <= 0) Perl_croak(aTHX_ "OS2::_headerInfo(): unexpected size: %d", (int)size); - ST(0) = newSVpvn("",0); + ST(0) = newSVpvs(""); SvGROW(ST(0), size + 1); sv_2mortal(ST(0)); @@ -3885,7 +3885,7 @@ XS(XS_OS2_libPath) Perl_croak(aTHX_ "OS2::_headerInfo(%ld,%ld,%ld,%ld) error: %s", DQHI_QUERYLIBPATHSIZE, sizeof(size), 0, 0, os2error(Perl_rc)); - ST(0) = newSVpvn("",0); + ST(0) = newSVpvs(""); SvGROW(ST(0), size + 1); sv_2mortal(ST(0)); |