Ticket #12708: perl5-1.0-fs-traverse.diff

File perl5-1.0-fs-traverse.diff, 595 bytes (added by nox@…, 12 years ago)
  • perl5-1.0.tcl

     
    9696        destroot.target     pure_install
    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 packlist ${destroot}${perl5.lib} {
     100                        if {[file tail ${file}] == .packlist} {
     101                                ui_info "Fixing packlist ${packlist}"
     102                                reinplace "s|${destroot}||" ${packlist}
     103                        }
    102104                }
    103105        }
    104106