diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-31 14:12:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-31 14:12:12 (GMT) |
| commit | c8ff4cae81a4a80f22f1b6ceb2475b2483e31592 (patch) | |
| tree | eddeeae749b9dd0ae9e14f643e0c4e0d5bf77f7e /generic/tclEvent.c | |
| parent | b87d0095dc09d7d1fc1dc4b000f3ed0141aa8b6a (diff) | |
| download | tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.zip tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.tar.gz tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.tar.bz2 | |
Use TclDuplicatePureObj() in stead of TclListObjCopy() where appropriate. Backported from 9.0
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 5501721..5848728 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -243,7 +243,11 @@ HandleBgErrors( * support one handler setting another handler. */ - Tcl_Obj *copyObj = TclListObjCopy(NULL, assocPtr->cmdPrefix); + Tcl_Obj *copyObj = TclDuplicatePureObj( + interp, assocPtr->cmdPrefix, &tclListType); + if (!copyObj) { + return; + } errPtr = assocPtr->firstBgPtr; |