[PD-cvs] SF.net SVN: pure-data: [10070] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 10070
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10070&view=rev
Author:   eighthave
Date:     2008-06-23 02:34:32 -0700 (Mon, 23 Jun 2008)

Log Message:
-----------
Tcl's [file mkdir] doesn't need the -- flag, it was instead creating a dir called '--'

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-23 09:10:14 UTC (rev 10069)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-23 09:34:32 UTC (rev 10070)
@@ -903,7 +903,7 @@
 	set pdapp_contents [file normalize "$pd_guidir/.."]
 	pdtk_post "Copying:$pdapp_contents\n  -->\t$appdir/\n"
 	file delete -force -- $appdir
-	file mkdir -- $appdir
+	file mkdir $appdir
 	file copy -- $pdapp_contents "$appdir/"
 	file rename -force -- $appdir/Contents/org.puredata.pd.default.plist \
 		$appdir/Contents/org.puredata.pd.plist
@@ -937,7 +937,7 @@
 	} else {
 		set embedded_patch "$appdir/Contents/Resources/extra/$patchname/$patchname.pd"
 		pdtk_post "Copying:$patch\n  -->\t$embedded_patch\n"
-		file mkdir -- "$appdir/Contents/Resources/extra/$patchname"
+		file mkdir "$appdir/Contents/Resources/extra/$patchname"
 		file copy -- $patch $embedded_patch
 	}
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.