[51440] branches/gsoc09-logging/base/src/macports1.0/macports.tcl

[enl at macports.org]

Revision: 51440
          http://trac.macports.org/changeset/51440
Author:   enl at macports.org
Date:     2009-05-24 23:58:47 -0700 (Sun, 24 May 2009)
Log Message:
-----------
Simplified dir creation

Modified Paths:
--------------
    branches/gsoc09-logging/base/src/macports1.0/macports.tcl

Modified: branches/gsoc09-logging/base/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-05-25 06:53:33 UTC (rev 51439)
+++ branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-05-25 06:58:47 UTC (rev 51440)
@@ -110,27 +110,10 @@
     global ::debuglog ::debuglogname macports::channels macports::prefix
     set logname $macports::prefix
     
-    # I am not sure tcl can handle mkdir -p, to make stuff below easier.
-    # first we create ${prefix}/var/macports/
-    append logname "/var/macports"
-    if ![file exists $logname] {
-        file mkdir $logname
-    }
+    append logname "/var/macports/logs/$portname"
+    file mkdir $logname
 
-    # second we create ${prefix}/var/macports/logs
-    append logname "/logs"
-    if ![file exists $logname] {
-        file mkdir $logname
-    }
-
-    # third we create ${prefix}/var/macports/logs/${portname}
-    append logname "/$portname"
-    if ![file exists $logname] {
-        file mkdir $logname
-    }
-    
     append logname "/main.log"
-    puts $logname
     set ::debuglogname $logname
 
     # Recreate the file if already exists
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090524/0e47c640/attachment.html>