[66702] trunk/base/src/port1.0/portclean.tcl

[jmr at macports.org]

Revision: 66702
          http://trac.macports.org/changeset/66702
Author:   jmr at macports.org
Date:     2010-04-20 11:50:55 -0700 (Tue, 20 Apr 2010)
Log Message:
-----------
warn if privileges are only sufficient to clean the alt work path

Modified Paths:
--------------
    trunk/base/src/port1.0/portclean.tcl

Modified: trunk/base/src/port1.0/portclean.tcl
===================================================================
--- trunk/base/src/port1.0/portclean.tcl	2010-04-20 18:30:29 UTC (rev 66701)
+++ trunk/base/src/port1.0/portclean.tcl	2010-04-20 18:50:55 UTC (rev 66702)
@@ -58,9 +58,12 @@
 proc portclean::clean_main {args} {
     global UI_PREFIX
     global ports_clean_dist ports_clean_work ports_clean_archive ports_clean_logs
-    global ports_clean_all 
-    global keeplogs
+    global ports_clean_all keeplogs usealtworkpath
 
+    if {$usealtworkpath} {
+        ui_warn "Only cleaning in ~/.macports; insufficient privileges for standard locations"
+    }
+
     if {[info exists ports_clean_all] && $ports_clean_all == "yes" || \
         [info exists ports_clean_dist] && $ports_clean_dist == "yes"} {
         ui_info "$UI_PREFIX [format [msgcat::mc "Removing distfiles for %s"] [option name]]"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100420/ddaf5b67/attachment.html>