aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon McVittie <smcv@debian.org>2014-09-10 09:00:20 +0100
committerSimon McVittie <smcv@debian.org>2014-09-10 09:00:20 +0100
commit77a2267dcfb103b63a675e4a2226076166b29d3f (patch)
treee2c5f4e946c3854def5cccc9a04b6341a1b482a1
parentaed4e03b0c850d48722d5f72cbf7bd6a2a052a12 (diff)
downloadikiwiki-77a2267dcfb103b63a675e4a2226076166b29d3f.tar
ikiwiki-77a2267dcfb103b63a675e4a2226076166b29d3f.tar.gz
filecheck: accept MIME types that don't contain ';'
-rw-r--r--IkiWiki/Plugin/filecheck.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/filecheck.pm b/IkiWiki/Plugin/filecheck.pm
index cdea5c706..6e6528398 100644
--- a/IkiWiki/Plugin/filecheck.pm
+++ b/IkiWiki/Plugin/filecheck.pm
@@ -150,7 +150,7 @@ sub match_mimetype ($$;@) {
chomp $mimetype;
close $file_h;
}
- if (! defined $mimetype || $mimetype !~s /;.*//) {
+ if (! defined $mimetype) {
# Fall back to default value.
$mimetype=File::MimeInfo::Magic::default($file)
if $mimeinfo_ok;
@@ -158,6 +158,8 @@ sub match_mimetype ($$;@) {
$mimetype="unknown";
}
}
+ # Ignore any parameters, we only want the type itself
+ $mimetype =~ s/;.*//;
my $regexp=IkiWiki::glob2re($wanted);
if ($mimetype!~$regexp) {