Change 18433 by jhi@lyta on 2003/01/04 04:49:38 Integrate: [ 18432] One more (or, rather, less) //.
Affected files ... ... //depot/maint-5.8/perl/ext/threads/threads.xs#5 integrate Differences ... ==== //depot/maint-5.8/perl/ext/threads/threads.xs#5 (xtext) ==== Index: perl/ext/threads/threads.xs --- perl/ext/threads/threads.xs#4~18430~ Fri Jan 3 20:35:40 2003 +++ perl/ext/threads/threads.xs Fri Jan 3 20:49:38 2003 @@ -522,14 +522,15 @@ PERL_THREAD_GETSPECIFIC(self_key,current_thread); PERL_THREAD_SETSPECIFIC(self_key,thread); +#if 0 { I32 len = av_len(params)+1; I32 i; for(i = 0; i < len; i++) { - // sv_dump(SvRV(AvARRAY(params)[i])); + sv_dump(SvRV(AvARRAY(params)[i])); } } - +#endif retparam = (AV*) sv_dup((SV*)params, &clone_params); #if 0 { End of Patch.