diff options
author | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
commit | 7814414e5c501546b9abc27e7d5016acb7a9ff03 (patch) | |
tree | 0c3fcde0a02a3747b4b81d374da8af259c859890 /macosx/tclMacOSXFCmd.c | |
parent | ba24753c2448757f53357c36eaa553b2d949bbcd (diff) | |
parent | f99295a87a00779f79d8648fc9578bacdbb97b01 (diff) | |
download | tcl-7814414e5c501546b9abc27e7d5016acb7a9ff03.zip tcl-7814414e5c501546b9abc27e7d5016acb7a9ff03.tar.gz tcl-7814414e5c501546b9abc27e7d5016acb7a9ff03.tar.bz2 |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'macosx/tclMacOSXFCmd.c')
-rw-r--r-- | macosx/tclMacOSXFCmd.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index 8eb3e57..09ee96d 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -623,8 +623,10 @@ SetOSTypeFromAny( Tcl_UtfToExternalDString(encoding, string, length, &ds); if (Tcl_DStringLength(&ds) > 4) { - Tcl_AppendResult(interp, "expected Macintosh OS type but got \"", - string, "\": ", NULL); + if (interp) { + Tcl_AppendResult(interp, "expected Macintosh OS type but got \"", + string, "\": ", NULL); + } result = TCL_ERROR; } else { OSType osType; |