- printf " processed %s: %d pcfs, %d affected, %d updated.\n",
- $fontdir, (scalar keys %$newdone), $affected, $updated;
+ if ($reported || %$newdone || $affected || $updated) {
+ printf " processed %s: %d pcfs, %d affected, %d updated.\n",
+ $fontdir, (scalar keys %$newdone), $affected, $updated;
+ }
+}
+
+sub processfonttree ($) {
+ my ($tree) = @_;
+ find({ follow => 1,
+ dangling_symlinks => 0,
+ no_chdir => 1,
+ wanted => sub {
+ return unless -d _;
+ processfontdir($File::Find::name);
+ }},
+ $tree);