Changeset 29831 for trunk/base


Ignore:
Timestamp:
Oct 11, 2007, 12:02:26 PM (12 years ago)
Author:
nox@…
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/resources/group/perl5-1.0.tcl

    r29830 r29831  
    9797
    9898    post-destroot {
    99         foreach packlist [exec find ${destroot}${perl5.lib} -name .packlist] {
    100             ui_info "Fixing packlist ${packlist}"
    101             reinplace "s|${destroot}||" ${packlist}
     99        fs-traverse file ${destroot}${perl5.lib} {
     100            if {[file tail ${file}] eq ".packlist"} {
     101                ui_info "Fixing packlist ${file}"
     102                reinplace "s|${destroot}||" ${file}
     103            }
    102104        }
    103105    }
Note: See TracChangeset for help on using the changeset viewer.