From 23f276e524b2a217949ddca09926a9dc069c17aa Mon Sep 17 00:00:00 2001 From: Tobias Leich Date: Sat, 14 May 2011 14:37:45 +0200 Subject: [PATCH] removed newSVsv() since these SV's are not freed till global destruction --- CHANGELOG | 1 + src/helper.h | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/CHANGELOG b/CHANGELOG index 57394fb5..5a5e90af 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -7,6 +7,7 @@ Revision history for Perl extension SDL_perl. - SDLx::Music test: 'require threads' instead of 'use threads' and removed Data::Dumper [FROGGS] - SDLx::Text test: width isnt 53 on windows, made test more tolerant [FROGGS] - SDLx::FPS test: testing with 60fps is too much for some systems (cpantester vm's), reduced to 25 [FROGGS] + - src/helper.h: removed newSVsv() since these SV's are not freed till global destruction [FROGGS] * 2.532 March 27 2011 - Tested and released experimental branch diff --git a/src/helper.h b/src/helper.h index c1f4fe2a..eab93c49 100644 --- a/src/helper.h +++ b/src/helper.h @@ -45,7 +45,7 @@ SV *cpy2bag( void *object, int p_size, int s_size, char *package ) Uint32 *threadid = (Uint32 *)safemalloc(sizeof(Uint32)); *threadid = SDL_ThreadID(); pointers[2] = (void*)threadid; - SV* a = newSVsv(sv_setref_pv(ref, package, (void *)pointers)); + SV* a = sv_setref_pv(ref, package, (void *)pointers); return a; } @@ -83,7 +83,7 @@ SV *_sv_ref( void *object, int p_size, int s_size, char *package ) *threadid = SDL_ThreadID(); pointers[2] = (void*)threadid; - return newSVsv(sv_setref_pv(ref, package, (void *)pointers)); + return sv_setref_pv(ref, package, (void *)pointers); } void _svinta_free(Sint16* av, int len_from_av_len)