win32_checkTLS(): nothing to do without at least multiplicity

tonycoz · tonycoz · commit 96784b083ca7 · 2025-07-23T11:51:30.000+10:00
diff --git a/win32/perllib.c b/win32/perllib.c
@@ -76,7 +76,7 @@ win32_checkTLS(PerlInterpreter *host_perl)
         }
         host_perl->Isys_intern.cur_tid = tid;
     }
-#else
+#elif defined(PERL_MULTIPLICITY)
     dTHX;
     if (host_perl != my_perl) {
         panic_thread_id();

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ win32_checkTLS(PerlInterpreter *host_perl)`
`76`	`76`	`}`
`77`	`77`	`host_perl->Isys_intern.cur_tid = tid;`
`78`	`78`	`}`
`79`		`-#else`
	`79`	`+#elif defined(PERL_MULTIPLICITY)`
`80`	`80`	`dTHX;`
`81`	`81`	`if (host_perl != my_perl) {`
`82`	`82`	`panic_thread_id();`