Accommodate Tcl TIP 543

Remove Tcl::INTERP_DESTROYED constant

Add method InterpDeleted()

Author: chrstphrchvz

Tcl.pm

@@ -375,6 +375,10 @@ behaves as in I<SetVar> above.
 Unsets the element VARNAME1(VARNAME2) of a Tcl array.
 The optional argument FLAGS behaves as in I<SetVar> above.
 
+=item $interp->InterpDeleted ()
+
+See Tcl C API documentation for I<Tcl_InterpDeleted>().
+
 =back
 
 =head2 Linking Perl and Tcl variables

Tcl.xs

@@ -1706,6 +1706,10 @@ Tcl_UnsetVar2(interp, varname1, varname2, flags = 0)
     OUTPUT:
 	RETVAL
 
+int
+Tcl_InterpDeleted(interp)
+	Tcl interp
+
 
 MODULE = Tcl		PACKAGE = Tcl::List
 
@@ -1865,7 +1869,6 @@ BOOT:
 	newCONSTSUB(stash, "TRACE_WRITES",     newSViv(TCL_TRACE_WRITES));
 	newCONSTSUB(stash, "TRACE_UNSETS",     newSViv(TCL_TRACE_UNSETS));
 	newCONSTSUB(stash, "TRACE_DESTROYED",  newSViv(TCL_TRACE_DESTROYED));
-	newCONSTSUB(stash, "INTERP_DESTROYED", newSViv(TCL_INTERP_DESTROYED));
 	newCONSTSUB(stash, "LEAVE_ERR_MSG",    newSViv(TCL_LEAVE_ERR_MSG));
 	newCONSTSUB(stash, "TRACE_ARRAY",      newSViv(TCL_TRACE_ARRAY));
 

t/constants.t

@@ -19,7 +19,6 @@ ok(Tcl::GLOBAL_ONLY      |
    Tcl::TRACE_WRITES     |
    Tcl::TRACE_UNSETS     |
    Tcl::TRACE_DESTROYED  |
-   Tcl::INTERP_DESTROYED |
    Tcl::LEAVE_ERR_MSG    |
    Tcl::TRACE_ARRAY,
-   0xBFF);
+   0xAFF);