Revision

138943

Author

raimue@macports.org

Date

2015-07-24 13:35:45 -0700 (Fri, 24 Jul 2015)

Log Message

pextlib1.0: Log all system commands at debug level
port1.0: Remove redundant logging

Modified Paths

• trunk/base/src/pextlib1.0/system.c
• trunk/base/src/port1.0/portutil.tcl

Diff

--- trunk/base/src/pextlib1.0/system.c	2015-07-24 17:29:00 UTC (rev 138942)
+++ trunk/base/src/pextlib1.0/system.c	2015-07-24 20:35:45 UTC (rev 138943)
@@ -165,6 +165,13 @@
         }
     }
 
+    /* print debug command info */
+    if (path) {
+        ui_debug(interp, "system -W %s: %s", path, cmdstring);
+    } else {
+        ui_debug(interp, "system: %s", cmdstring);
+    }
+
     /* check if and how we should use sandbox-exec */
     sandbox = check_sandboxing(interp, &sandbox_exec_path, &profilestr);
 

--- trunk/base/src/port1.0/portutil.tcl	2015-07-24 17:29:00 UTC (rev 138942)
+++ trunk/base/src/port1.0/portutil.tcl	2015-07-24 20:35:45 UTC (rev 138943)
@@ -367,7 +367,6 @@
         }
     }
 
-    ui_debug "Assembled command: '$cmdstring'"
     return $cmdstring
 }
 
@@ -450,7 +449,6 @@
     array set env [array get ${varprefix}.env_array]
     # Call the command.
     set fullcmdstring "$command_prefix $cmdstring $command_suffix"
-    ui_debug "Executing command line: $fullcmdstring"
     set code [catch {system {*}$notty {*}$nice $fullcmdstring} result]
     # Save variables in order to re-throw the same error code.
     set errcode $::errorCode