diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-15 23:17:02 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-15 23:17:02 +0100 |
| commit | d3d348849d1e04f91e458937b2aba39c00de63af (patch) | |
| tree | a0047853d605841c279608b3e98ad555131ae1f4 /ext/PerlIO-via | |
| parent | f584eb2d9f7ac11f83863d38a4f1f95cd9775aa2 (diff) | |
| download | perl-d3d348849d1e04f91e458937b2aba39c00de63af.tar.gz | |
Replace sv_2mortal(newSVpvn(...)) with newSVpvn_flags(..., SVs_TEMP)
Diffstat (limited to 'ext/PerlIO-via')
| -rw-r--r-- | ext/PerlIO-via/via.pm | 2 | ||||
| -rw-r--r-- | ext/PerlIO-via/via.xs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/PerlIO-via/via.pm b/ext/PerlIO-via/via.pm index 53d435853a..077f0d17f9 100644 --- a/ext/PerlIO-via/via.pm +++ b/ext/PerlIO-via/via.pm @@ -1,5 +1,5 @@ package PerlIO::via; -our $VERSION = '0.08'; +our $VERSION = '0.09'; use XSLoader (); XSLoader::load 'PerlIO::via'; 1; diff --git a/ext/PerlIO-via/via.xs b/ext/PerlIO-via/via.xs index fd5234a128..a811578ca2 100644 --- a/ext/PerlIO-via/via.xs +++ b/ext/PerlIO-via/via.xs @@ -155,7 +155,7 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, /* binmode() passes NULL - so find out what mode is */ mode = PerlIO_modestr(f,lmode); } - modesv = sv_2mortal(newSVpvn(mode, strlen(mode))); + modesv = newSVpvn_flags(mode, strlen(mode), SVs_TEMP); result = PerlIOVia_method(aTHX_ f, MYMethod(PUSHED), G_SCALAR, modesv, Nullsv); if (result) { @@ -395,7 +395,7 @@ SSize_t PerlIOVia_unread(pTHX_ PerlIO * f, const void *vbuf, Size_t count) { PerlIOVia *s = PerlIOSelf(f, PerlIOVia); - SV *buf = sv_2mortal(newSVpvn((char *) vbuf, count)); + SV *buf = newSVpvn_flags((char *) vbuf, count, SVs_TEMP); SV *result = PerlIOVia_method(aTHX_ f, MYMethod(UNREAD), G_SCALAR, buf, Nullsv); if (result) |