Ticket #11827: fs-traverse.diff

File fs-traverse.diff, 885 bytes (added by sfiera@…, 17 years ago)

fs-traverse.c.diff

  • fs-traverse.c

     
    135135            return TCL_OK;
    136136        } else {
    137137            Tcl_ResetResult(interp);
    138             Tcl_AppendResult(interp, "Error: no permission to access file/folder `", target, "'");
     138            Tcl_AppendResult(interp, "Error: no permission to access file/folder `", target, "'", NULL);
    139139            return TCL_ERROR;
    140140        }
    141141    }
    … …  
    155155                return TCL_OK;
    156156            } else {
    157157                Tcl_ResetResult(interp);
    158                 Tcl_AppendResult(interp, "Error: Could not open directory `", target, "'");
     158                Tcl_AppendResult(interp, "Error: Could not open directory `", target, "'", NULL);
    159159                return TCL_ERROR;
    160160            }
    161161        }