diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:54:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:54:38 +0000 |
| commit | ad25789c15269a04312e0efede81842547aa8212 (patch) | |
| tree | 2aaac52db8554401f8e520d7ff235d9bb6f8aa98 /XSUB.h | |
| parent | 84bafc024a74c819ac3d2b4406253dbe983e6502 (diff) | |
| download | perl-ad25789c15269a04312e0efede81842547aa8212.tar.gz | |
Missed three sv_2mortal(newSVpvn(...))s in the headers.
p4raw-id: //depot/perl@32820
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -269,7 +269,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. #define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) ) #define XST_mNV(i,v) (ST(i) = sv_2mortal(newSVnv(v)) ) #define XST_mPV(i,v) (ST(i) = sv_2mortal(newSVpv(v,0))) -#define XST_mPVN(i,v,n) (ST(i) = sv_2mortal(newSVpvn(v,n))) +#define XST_mPVN(i,v,n) (ST(i) = newSVpvn_flags(v,n, SVs_TEMP)) #define XST_mNO(i) (ST(i) = &PL_sv_no ) #define XST_mYES(i) (ST(i) = &PL_sv_yes ) #define XST_mUNDEF(i) (ST(i) = &PL_sv_undef) |