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

[snc at macports.org]

Revision: 54673
          http://trac.macports.org/changeset/54673
Author:   snc at macports.org
Date:     2009-07-31 08:10:01 -0700 (Fri, 31 Jul 2009)
Log Message:
-----------
account for tbz2 extension

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

Modified: trunk/base/src/port1.0/portclean.tcl
===================================================================
--- trunk/base/src/port1.0/portclean.tcl	2009-07-31 10:21:49 UTC (rev 54672)
+++ trunk/base/src/port1.0/portclean.tcl	2009-07-31 15:10:01 UTC (rev 54673)
@@ -228,7 +228,7 @@
             set file [file tail $path]
             # Make sure file is truly a port archive file, and not
             # and accidental match with some other file that might exist.
-            if {[regexp "^$name-\[-_a-zA-Z0-9\.\]+_\[0-9\]*\[+-_a-zA-Z0-9\]*\[\.\][option os.arch]\[\.\]\[a-z\]+\$" $file]} {
+            if {[regexp "^$name-\[-_a-zA-Z0-9\.\]+_\[0-9\]*\[+-_a-zA-Z0-9\]*\[\.\][option os.arch]\[\.\]\[a-z2\]+\$" $file]} {
                 if {[file isfile $path]} {
                     ui_debug "Removing archive: $path"
                     if {[catch {delete $path} result]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090731/262afa24/attachment.html>