removed newSVsv() since these SV's are not freed till global destruction

PerlGameDev · May 14, 2011 · 23f276e · 23f276e
1 parent ee6a7a8
commit 23f276e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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)