This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused dTHX, even under threads.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 May 2014 14:26:54 +0000 (10:26 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 May 2014 14:30:40 +0000 (10:30 -0400)
[perl #121882].

Fix for Coverity perl5 CID 49935:
Unused pointer value (UNUSED_VALUE)
returned_pointer: Pointer my_perl returned by
pthread_getspecific(PL_thr_key) is never used.

ext/XS-APItest/APItest.xs

index f741664..fb5e366 100644 (file)
@@ -83,7 +83,6 @@ typedef void (freeent_function)(pTHX_ HV *, HE *);
 
 void
 test_freeent(freeent_function *f) {
 
 void
 test_freeent(freeent_function *f) {
-    dTHX;
     dSP;
     HV *test_hash = newHV();
     HE *victim;
     dSP;
     HV *test_hash = newHV();
     HE *victim;