This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't use C++ comments.
[perl5.git] / ext / threads / threads.xs
index 09387ba..9d63932 100755 (executable)
@@ -129,8 +129,10 @@ SV* thread_create(char* class, SV* init_function, SV* params) {
        
        PL_perl_destruct_level = 2;
 
        
        PL_perl_destruct_level = 2;
 
-//     sv_dump(SvRV(Perl_get_sv(current_perl, "threads::calltempstore",FALSE)));       
-//     sv_dump(SvRV(Perl_get_sv(thread->interp, "threads::calltempstore",FALSE)));     
+#if 0
+       sv_dump(SvRV(Perl_get_sv(current_perl, "threads::calltempstore",FALSE)));       
+       sv_dump(SvRV(Perl_get_sv(thread->interp, "threads::calltempstore",FALSE)));     
+#endif
 
        thread->init_function = newSVsv(Perl_get_sv(thread->interp, "threads::calltempstore",FALSE));
        thread->params = newSVsv(Perl_get_sv(thread->interp, "threads::paramtempstore",FALSE));
 
        thread->init_function = newSVsv(Perl_get_sv(thread->interp, "threads::calltempstore",FALSE));
        thread->params = newSVsv(Perl_get_sv(thread->interp, "threads::paramtempstore",FALSE));