diff options
-rw-r--r-- | contrib/tcl/unix/tclUnixFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/tcl/unix/tclUnixFCmd.c b/contrib/tcl/unix/tclUnixFCmd.c index 3ec1a69..fc030f0 100644 --- a/contrib/tcl/unix/tclUnixFCmd.c +++ b/contrib/tcl/unix/tclUnixFCmd.c @@ -1028,7 +1028,7 @@ GetPermissionsAttribute(interp, objIndex, fileName, attributePtrPtr) return TCL_ERROR; } - sprintf(returnString, "%0#5lo", (statBuf.st_mode & 0x00007FFF)); + sprintf(returnString, "%0#5o", (int)(statBuf.st_mode & 0x00007FFF)); *attributePtrPtr = Tcl_NewStringObj(returnString, -1); |