diff --git a/AUTHORS b/AUTHORS
index 6b244913fa18..bb3f284d2698 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1223,6 +1223,7 @@ Robert Spier                   <rspier@pobox.com>
 Roberto C. Sanchez             <roberto@connexer.com>
 Robin Barker                   <RMBarker@cpan.org>
 Robin Houston                  <robin@cpan.org>
+Robin Ragged                   <robin.ragged@paranoici.org>
 Rocco Caputo                   <troc@netrus.net>
 Roderick Schertler             <roderick@argon.org>
 Rodger Anderson                <rodger@boi.hp.com>
diff --git a/perl.c b/perl.c
index 5c87e47ee294..a8e50b73b15f 100644
--- a/perl.c
+++ b/perl.c
@@ -1389,6 +1389,7 @@ perl_destruct(pTHXx)
         HvTOTALKEYS(PL_strtab) = 0;
     }
     SvREFCNT_dec(PL_strtab);
+    PL_strtab = NULL;
 
 #ifdef USE_ITHREADS
     /* free the pointer tables used for cloning */