1 files changed, 2 insertions, 0 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h
index bd3d1a9fa4..265328b69b 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1892,6 +1892,8 @@ PerlProcSpawnvp(struct IPerlProc* piPerl, int mode, const char *cmdname, const c
 int
 PerlProcLastHost(struct IPerlProc* piPerl)
 {
+ /* this dTHX is unused in an optimized build since CPerlHost::num_hosts
+    is a static */
  dTHX;
  CPerlHost *h = (CPerlHost*)w32_internal_host;
  return h->LastHost();