From 26e2d643d0a27161107ea5383ece953c8d3dca37 Mon Sep 17 00:00:00 2001
From: gneumann <>
Date: Thu, 29 Jan 2009 12:49:45 +0000
Subject: [PATCH] Remove direct access to interp->result

---
 nsssl/ssltcl.c | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/nsssl/ssltcl.c b/nsssl/ssltcl.c
index 7966502..363a319 100644
--- a/nsssl/ssltcl.c
+++ b/nsssl/ssltcl.c
@@ -52,7 +52,7 @@
  *
  */
 
-static const char *RCSID = "@(#): $Header: /Users/dossy/Desktop/cvs/aolserver/nsssl/ssltcl.c,v 1.1 2001/04/23 21:06:01 jgdavidson Exp $, compiled: " __DATE__ " " __TIME__;
+static const char *RCSID = "@(#): $Header: /Users/dossy/Desktop/cvs/aolserver/nsssl/ssltcl.c,v 1.2 2009/01/29 12:49:45 gneumann Exp $, compiled: " __DATE__ " " __TIME__;
 
 #include "ns.h"
 #include "ssl.h"
@@ -653,12 +653,8 @@ DerEncodeCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
 		    break;
 		}
 	    }
+            Tcl_SetResult(interp, *p == '\0' ? "1" : "0", TCL_STATIC);
 
-	    if (*p == '\0') {
-		interp->result = "1";
-	    } else {
-		interp->result = "0";
-	    }
         } else {
             Tcl_AppendResult(interp, "usage: \"", argv[0],
                              " valid options are octets or "