[29831] trunk/base/src/port1.0/resources/group/perl5-1.0.tcl

[source_changes at macosforge.org]

Revision: 29831
          http://trac.macosforge.org/projects/macports/changeset/29831
Author:   nox at macports.org
Date:     2007-10-11 05:02:26 -0700 (Thu, 11 Oct 2007)

Log Message:
-----------
perl5-1.0.tcl (closes #12708): Use fs-traverse instead of exec find.

Modified Paths:
--------------
    trunk/base/src/port1.0/resources/group/perl5-1.0.tcl

Modified: trunk/base/src/port1.0/resources/group/perl5-1.0.tcl
===================================================================
--- trunk/base/src/port1.0/resources/group/perl5-1.0.tcl	2007-10-11 11:54:48 UTC (rev 29830)
+++ trunk/base/src/port1.0/resources/group/perl5-1.0.tcl	2007-10-11 12:02:26 UTC (rev 29831)
@@ -96,9 +96,11 @@
     destroot.target     pure_install
 
     post-destroot {
-        foreach packlist [exec find ${destroot}${perl5.lib} -name .packlist] {
-            ui_info "Fixing packlist ${packlist}"
-            reinplace "s|${destroot}||" ${packlist}
+        fs-traverse file ${destroot}${perl5.lib} {
+            if {[file tail ${file}] eq ".packlist"} {
+                ui_info "Fixing packlist ${file}"
+                reinplace "s|${destroot}||" ${file}
+            }
         }
     }
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071011/c05d9c4a/attachment.html