[53884] branches/images-and-archives/base/src/port1.0/portimagefile.tcl

[blb at macports.org]

Revision: 53884
          http://trac.macports.org/changeset/53884
Author:   blb at macports.org
Date:     2009-07-16 00:13:38 -0700 (Thu, 16 Jul 2009)
Log Message:
-----------
Anchor regex for safety (thanks jmr)

Modified Paths:
--------------
    branches/images-and-archives/base/src/port1.0/portimagefile.tcl

Modified: branches/images-and-archives/base/src/port1.0/portimagefile.tcl
===================================================================
--- branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-07-16 06:42:17 UTC (rev 53883)
+++ branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-07-16 07:13:38 UTC (rev 53884)
@@ -126,7 +126,7 @@
             # so we must run it against the stuff in the destroot, then strip
             # out that path to get to what will be the final install path
             set fileinfo [registry_fileinfo_for_file $element]
-            lappend filelist [regsub -all "$startpath" $fileinfo ""]
+            lappend filelist [regsub -all "^$startpath" $fileinfo ""]
         }
     }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090716/39b1450e/attachment.html>