[30320] trunk/base/src/package1.0/portarchive.tcl

[source_changes at macosforge.org]

Revision: 30320
          http://trac.macosforge.org/projects/macports/changeset/30320
Author:   afb at macports.org
Date:     2007-10-24 11:43:56 -0700 (Wed, 24 Oct 2007)

Log Message:
-----------
default to compression level 7 for lzma

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchive.tcl

Modified: trunk/base/src/package1.0/portarchive.tcl
===================================================================
--- trunk/base/src/package1.0/portarchive.tcl	2007-10-24 18:26:45 UTC (rev 30319)
+++ trunk/base/src/package1.0/portarchive.tcl	2007-10-24 18:43:56 UTC (rev 30320)
@@ -178,15 +178,18 @@
 				if {[regexp {z2?$} ${archive.type}]} {
 					if {[regexp {bz2?$} ${archive.type}]} {
 						set gzip "bzip2"
+						set level 9
 					} elseif {[regexp {lz$} ${archive.type}]} {
 						set gzip "lzma"
+						set level 7
 					} else {
 						set gzip "gzip"
+						set level 9
 					}
 					if {[catch {set gzip [binaryInPath $gzip]} errmsg] == 0} {
 						ui_debug "Using $gzip"
 						set archive.args {- .}
-						set archive.post_args "| $gzip -c9 > ${archive.path}"
+						set archive.post_args "| $gzip -c$level > ${archive.path}"
 					} else {
 						ui_debug $errmsg
 						return -code error "No '$gzip' was found on this system!"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071024/54d0260c/attachment-0001.html