[119937] trunk/base/src/pextlib1.0/flock.c

[jmr at macports.org]

Revision: 119937
          https://trac.macports.org/changeset/119937
Author:   jmr at macports.org
Date:     2014-05-11 04:08:06 -0700 (Sun, 11 May 2014)
Log Message:
-----------
add error strings for flock failure cases that were missing them

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

Modified: trunk/base/src/pextlib1.0/flock.c
===================================================================
--- trunk/base/src/pextlib1.0/flock.c	2014-05-11 03:16:56 UTC (rev 119936)
+++ trunk/base/src/pextlib1.0/flock.c	2014-05-11 11:08:06 UTC (rev 119937)
@@ -74,6 +74,7 @@
     }
 
     if ((channel = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), NULL)) == NULL) {
+        Tcl_SetResult(interp, "error getting channel, result was NULL", TCL_STATIC);
         return TCL_ERROR;
     }
 
@@ -222,6 +223,7 @@
     if (sigret != TCL_OK) {
         /* We received a signal that raised an error. The file hasn't been
          * locked. */
+        Tcl_SetResult(interp, "signal raised an error", TCL_STATIC);
         return sigret;
     }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140511/0bcfb597/attachment.html>