mason/dhandler (.contact): Nudge index-scanning loop to focus on top level.

[tgal] / mason / dhandler

diff --git a/mason/dhandler b/mason/dhandler
index de50cd8..94c39cc 100755 (executable)
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -89,8 +89,9 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
          { $tn{$f} = TrivGal::Image->new($path . $f->name)->scale($size); }
        for my $d (@$dd) {
          my $p = join_paths $path, $d->name;
+         my ($ddd, $fff, $iii);
+         ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
          DIR: for (;;) {
-           my ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
            if (defined $iii) {
              my $index = join_paths $p, $iii->name;
              $tn{$d} = TrivGal::Image->new($index)->scale($size);
@@ -98,6 +99,7 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
            }
            if (!@$ddd) { $tn{$d} = undef; last DIR; }
            $p = join_paths $p, $ddd->[0]->name;
+           ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
          }
        }
 </%perl>