[52853] branches/gsoc09-logging/base/src

[enl at macports.org]

Revision: 52853
          http://trac.macports.org/changeset/52853
Author:   enl at macports.org
Date:     2009-06-24 08:29:28 -0700 (Wed, 24 Jun 2009)
Log Message:
-----------
port clean has now "--logs" option which deletes log file additionally

Modified Paths:
--------------
    branches/gsoc09-logging/base/src/port/port.tcl
    branches/gsoc09-logging/base/src/port1.0/portclean.tcl

Modified: branches/gsoc09-logging/base/src/port/port.tcl
===================================================================
--- branches/gsoc09-logging/base/src/port/port.tcl	2009-06-24 13:53:40 UTC (rev 52852)
+++ branches/gsoc09-logging/base/src/port/port.tcl	2009-06-24 15:29:28 UTC (rev 52853)
@@ -3155,7 +3155,7 @@
     selfupdate  {nosync}
     uninstall   {follow-dependents}
     variants    {index}
-    clean       {all archive dist work}
+    clean       {all archive dist work logs}
     mirror      {new}
     lint        {nitpick}
     select      {list set show}

Modified: branches/gsoc09-logging/base/src/port1.0/portclean.tcl
===================================================================
--- branches/gsoc09-logging/base/src/port1.0/portclean.tcl	2009-06-24 13:53:40 UTC (rev 52852)
+++ branches/gsoc09-logging/base/src/port1.0/portclean.tcl	2009-06-24 15:29:28 UTC (rev 52853)
@@ -57,7 +57,7 @@
 
 proc portclean::clean_main {args} {
     global UI_PREFIX
-    global ports_clean_dist ports_clean_work ports_clean_archive
+    global ports_clean_dist ports_clean_work ports_clean_archive ports_clean_logs
     global ports_clean_all usealtworkpath
     global	keeplogs
     if {[info exists ports_clean_all] && $ports_clean_all == "yes" || \
@@ -76,7 +76,7 @@
          ui_info "$UI_PREFIX [format [msgcat::mc "Removing build directory for %s"] [option name]]"
          clean_work
     }
-    if {$keeplogs == "no"} {
+    if {([info exists ports_clean_logs] && $ports_clean_logs == "yes") || ($keeplogs == "no")} {
         clean_logs
     }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090624/62e1ec7b/attachment.html>