1 files changed, 0 insertions, 5 deletions
diff --git a/perl.c b/perl.c
index 29eba5bab0..6be4342ddf 100644
--- a/perl.c
+++ b/perl.c
@@ -83,7 +83,6 @@ perl_construct(register PerlInterpreter *my_perl)
 #endif
 
 #ifdef MULTIPLICITY
-    ++PL_ninterps;
     Zero(my_perl, 1, PerlInterpreter);
 #endif
 
@@ -308,10 +307,6 @@ perl_destruct(register PerlInterpreter *my_perl)
     LEAVE;
     FREETMPS;
 
-#ifdef MULTIPLICITY
-    --PL_ninterps;
-#endif
-
     /* We must account for everything.  */
 
     /* Destroy the main CV and syntax tree */