Fix segfaults when calling Parrot_exit twice

parrot · Nov 25, 2010 · abab373 · abab373
1 parent e9934d7
commit abab373
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/exit.c b/src/exit.c
@@ -92,6 +92,8 @@ Parrot_exit(PARROT_INTERP, int status)
         node = next;
     }
 
+    interp->exit_handler_list = NULL;
+
     if (interp->api_jmp_buf)
         longjmp(interp->api_jmp_buf, status);
     else