Re: for() and map() peculiarity

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index f3014cb..be081be 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -156,4 +156,5 @@ PERLVAR(Iofmt,              char *)         /* $# */
 
 #ifdef USE_THREADS
 PERLVAR(Ithrsv,                SV *)           /* holds struct perl_thread for main thread */
+PERLVARI(Ithreadnum,   U32,    0)      /* incremented each thread creation */
 #endif /* USE_THREADS */