50       and @ARGV

    50       and @ARGV

    51       or pod2usage;

    51       or pod2usage;

    52     my $dir = shift;

    52     my $dir = shift;

    53 

    53 

    54     for (my $pass = 1 ; 1 ; ++$pass) {

    54     for (my $pass = 1 ; 1 ; ++$pass) {

    55         my %block = get_block_list($dir);

    56         my %block = get_block_list($dir);

    58         verbose("# indexed: "

    57         verbose("# indexed: "

    59               . scalar(@{ $block{""} // [] })

    58               . scalar(@{ $block{""} // [] })

    60               . " images with "

    59               . " images with "

    61               . (grep !/^\.idx$/ => keys(%block))

    60               . (grep !/^\.idx$/ => keys(%block))

    62               . " blocks");

    61               . " blocks");