[101982] trunk/base/src/pextlib1.0/uid.c

[jeremyhu at macports.org]

Revision: 101982
          https://trac.macports.org/changeset/101982
Author:   jeremyhu at macports.org
Date:     2013-01-23 13:10:22 -0800 (Wed, 23 Jan 2013)
Log Message:
-----------
Silence warning when building in C90 mode

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

Modified: trunk/base/src/pextlib1.0/uid.c
===================================================================
--- trunk/base/src/pextlib1.0/uid.c	2013-01-23 20:33:27 UTC (rev 101981)
+++ trunk/base/src/pextlib1.0/uid.c	2013-01-23 21:10:22 UTC (rev 101982)
@@ -110,8 +110,7 @@
 	if (0 != setuid(uid)) {
         char buffer[128];
         snprintf(buffer, sizeof(buffer), "could not set uid to %ld: %d %s", uid, errno, strerror(errno));
-        Tcl_Obj *result = Tcl_NewStringObj(buffer, -1);
-        Tcl_SetObjResult(interp, result);
+        Tcl_SetObjResult(interp, Tcl_NewStringObj(buffer, -1));
         return TCL_ERROR;
     }
 		
@@ -141,8 +140,7 @@
 	if (0 != seteuid(uid)) {
         char buffer[128];
         snprintf(buffer, sizeof(buffer), "could not set effective uid to %ld: %d %s", uid, errno, strerror(errno));
-        Tcl_Obj *result = Tcl_NewStringObj(buffer, -1);
-        Tcl_SetObjResult(interp, result);
+        Tcl_SetObjResult(interp, Tcl_NewStringObj(buffer, -1));
         return TCL_ERROR;
     }
 		
@@ -168,8 +166,7 @@
     if (0 != setgid(gid)) {
         char buffer[128];
         snprintf(buffer, sizeof(buffer), "could not set gid to %ld: %d %s", gid, errno, strerror(errno));
-        Tcl_Obj *result = Tcl_NewStringObj(buffer, -1);
-        Tcl_SetObjResult(interp, result);
+        Tcl_SetObjResult(interp, Tcl_NewStringObj(buffer, -1));
         return TCL_ERROR;
     }
     
@@ -195,8 +192,7 @@
     if (0 != setegid(gid)) {
         char buffer[128];
         snprintf(buffer, sizeof(buffer), "could not set effective gid to %ld: %d %s", gid, errno, strerror(errno));
-        Tcl_Obj *result = Tcl_NewStringObj(buffer, -1);
-        Tcl_SetObjResult(interp, result);
+        Tcl_SetObjResult(interp, Tcl_NewStringObj(buffer, -1));
         return TCL_ERROR;
     }
     
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130123/c1e5250d/attachment.html>