[24431] trunk/base/src/pextlib1.0/fs-traverse.c

[source_changes at macosforge.org]

Revision: 24431
          http://trac.macosforge.org/projects/macports/changeset/24431
Author:   eridius at macports.org
Date:     2007-04-24 02:16:31 -0700 (Tue, 24 Apr 2007)

Log Message:
-----------
Commit other half of change inadvertently added in previous commit - use a "nicer" method for setting the variable. No user-visible effects

Modified Paths:
--------------
    trunk/base/src/pextlib1.0/fs-traverse.c

Modified: trunk/base/src/pextlib1.0/fs-traverse.c
===================================================================
--- trunk/base/src/pextlib1.0/fs-traverse.c	2007-04-24 08:28:41 UTC (rev 24430)
+++ trunk/base/src/pextlib1.0/fs-traverse.c	2007-04-24 09:16:31 UTC (rev 24431)
@@ -155,7 +155,8 @@
             case FTS_SLNONE: /* symbolic link with non-existant target */
             case FTS_DEFAULT: /* file type not otherwise handled (e.g., fifo) */
             {
-                Tcl_SetVar(interp, varname, ent->fts_path, 0);
+                Tcl_Obj *path = Tcl_NewStringObj(ent->fts_path, ent->fts_pathlen);
+                Tcl_ObjSetVar2(interp, varname, NULL, path, 0);
                 if ((rval = Tcl_EvalObjEx(interp, body, 0)) == TCL_CONTINUE) {
                     fts_set(root_fts, ent, FTS_SKIP); /* probably useless on files/symlinks */
                 } else if (rval == TCL_BREAK) {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070424/1c233065/attachment.html