img: make img_allowed_formats case-insensitive

diff --git a/IkiWiki/Plugin/img.pm b/IkiWiki/Plugin/img.pm
index 494fe2335fc6de1d3723c97efc2d73ecc17b0a20..c3dc41474fed70094ba2837259b83fe76413b8a2 100644 (file)
--- a/IkiWiki/Plugin/img.pm
+++ b/IkiWiki/Plugin/img.pm
@@ -39,7 +39,7 @@ sub allowed {
        $allowed = ['jpeg', 'png', 'gif', 'svg'] unless defined $allowed && @$allowed;
 
        foreach my $a (@$allowed) {
-               return 1 if $a eq $format || $a eq 'everything';
+               return 1 if lc($a) eq $format || lc($a) eq 'everything';
        }
 
        return 0;

diff --git a/t/img.t b/t/img.t
index 71b69914e14550c30f339e78cb45395726c5820d..5531c38d02db9a9d9b1a79d054a3f2bbfc2e4cd4 100755 (executable)
--- a/t/img.t
+++ b/t/img.t
@@ -98,7 +98,7 @@ EOF
 );
 ok(utime(333333333, 333333333, "t/tmp/in/imgconversions.mdwn"));
 
-ok(! system(@command, '--set-yaml', 'img_allowed_formats=[jpeg, png, svg, pdf]'));
+ok(! system(@command, '--set-yaml', 'img_allowed_formats=[JPEG, PNG, svg, pdf]'));
 
 sub size($) {
        my $filename = shift;