diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-09-21 15:38:42 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-09-21 15:42:44 +0100 |
| commit | cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8 (patch) | |
| tree | 632ffeef6d10d5675c3a3012751964b5bec486b0 /os2 | |
| parent | 2c4188f3fe3f46d4ebe3f23a094a7cf96ebe87f1 (diff) | |
| download | perl-cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8.tar.gz | |
Change sv_setpvn(…, "…", …) to sv_setpvs(…, "…")
The dual-life dists affected use Devel::PPPort, so can safely use
sv_setpvs() even though it wasn't added until Perl v5.10.0.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/OS2/OS2-REXX/DLL/DLL.pm | 2 | ||||
| -rw-r--r-- | os2/OS2/OS2-REXX/DLL/DLL.xs | 2 | ||||
| -rw-r--r-- | os2/os2.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/os2/OS2/OS2-REXX/DLL/DLL.pm b/os2/OS2/OS2-REXX/DLL/DLL.pm index 7db94884a6..2447a72885 100644 --- a/os2/OS2/OS2-REXX/DLL/DLL.pm +++ b/os2/OS2/OS2-REXX/DLL/DLL.pm @@ -1,6 +1,6 @@ package OS2::DLL; -our $VERSION = '1.06'; +our $VERSION = '1.07'; use Carp; use XSLoader; diff --git a/os2/OS2/OS2-REXX/DLL/DLL.xs b/os2/OS2/OS2-REXX/DLL/DLL.xs index 90b14eaf85..56194bd912 100644 --- a/os2/OS2/OS2-REXX/DLL/DLL.xs +++ b/os2/OS2/OS2-REXX/DLL/DLL.xs @@ -164,7 +164,7 @@ _call(name, address, queue="SESSION", ...) if (result.strptr) sv_setpvn(ST(0), result.strptr, result.strlength); else - sv_setpvn(ST(0), "", 0); + sv_setpvs(ST(0), ""); } if (result.strptr && result.strptr != resbuf) DosFreeMem(result.strptr); @@ -2632,7 +2632,7 @@ XS(XS_OS2_Errors2Drive) if (DOS_suppression_state > 0) sv_setpvn(ST(0), &DOS_suppression_state, 1); else if (DOS_suppression_state == 0) - sv_setpvn(ST(0), "", 0); + sv_setpvs(ST(0), ""); DOS_suppression_state = drive; } XSRETURN(1); |