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

perl5-1.0.tcl

@@ -96 +96 @@
         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 packlist ${destroot}${perl5.lib} {
+                        if {[file tail ${file}] == .packlist} {
+                                ui_info "Fixing packlist ${packlist}"
+                                reinplace "s|${destroot}||" ${packlist}
+                        }
                 }
         }