$m->{title} = $f->{title};
}
-for my $thumb_fmt (keys %{$gal->get('ThumbFormats')}) {
- my ($tw, $th) = ($thumb_fmt =~ m{^(\d+)x(\d+)$}) or die "Cannot parse thumbnail format $thumb_fmt\n";
+for my $thumb_fmt (@{$gal->get('ThumbFormats')}) {
print "Generating $thumb_fmt thumbnails\n";
+ my ($tw, $th) = $gal->thumb_fmt_to_size($thumb_fmt);
my $thumb_meta = {};
$meta->{thumb}->{$thumb_fmt} = $thumb_meta;
my $thumb_dir = File::Spec->catfile($cache_dir, $thumb_fmt);