filecheck: Fall back to testing for binary or plain text files if no mime type is...

diff --git a/IkiWiki/Plugin/filecheck.pm b/IkiWiki/Plugin/filecheck.pm
index 9c7a8dbb7e79a2ac5865219ec02eb6dabe37a74d..27f764e3b344a344ef2d491552824c2c40e6e5f1 100644 (file)
--- a/IkiWiki/Plugin/filecheck.pm
+++ b/IkiWiki/Plugin/filecheck.pm
@@ -127,7 +127,10 @@ sub match_mimetype ($$;@) { #{{{
        }
        my $mimetype=File::MimeInfo::Magic::magic($file);
        if (! defined $mimetype) {
        }
        my $mimetype=File::MimeInfo::Magic::magic($file);
        if (! defined $mimetype) {

-               $mimetype="unknown";
+               $mimetype=File::MimeInfo::Magic::default($file);
+               if (! defined $mimetype) {
+                       $mimetype="unknown";
+               }

        }
 
        my $regexp=IkiWiki::glob2re($wanted);
        }
 
        my $regexp=IkiWiki::glob2re($wanted);

diff --git a/debian/changelog b/debian/changelog
index 9f7821551b7ea905510e5ae6ce421ca593b42995..85c550c289a9c1ce6151c4a786877ebe33ebf162 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,6 +7,8 @@ ikiwiki (2.63) UNRELEASED; urgency=low
   * Work around perl $_ scoping nonsense that caused breakage when loading
     external plugins.
   * style.css: Add missing semicolon. Closes: #497176 
   * Work around perl $_ scoping nonsense that caused breakage when loading
     external plugins.
   * style.css: Add missing semicolon. Closes: #497176 

+  * filecheck: Fall back to testing for binary or plain text files
+    if no mime type is detected.

 
  -- Joey Hess <joeyh@debian.org>  Thu, 28 Aug 2008 16:08:18 -0400
 
 
  -- Joey Hess <joeyh@debian.org>  Thu, 28 Aug 2008 16:08:18 -0400
 

diff --git a/doc/plugins/filecheck/discussion.mdwn b/doc/plugins/filecheck/discussion.mdwn
index 54b14c18378328b7e97ebe35fafbde5ecdf4b9ea..f91950b7df39a894c63f54991c885f019cde73c1 100644 (file)
--- a/doc/plugins/filecheck/discussion.mdwn
+++ b/doc/plugins/filecheck/discussion.mdwn
@@ -13,29 +13,5 @@ if ::magic() returns undef?  --[[DavidBremner]]
 >> that if default returns undef, this is returned. As far as I understand
 >> the code/doc for File::MimeInfo, under is used only as an error return
 >> for ::default
 >> that if default returns undef, this is returned. As far as I understand
 >> the code/doc for File::MimeInfo, under is used only as an error return
 >> for ::default

-<pre>
-From 84f40d7fa822c6cc09506cca2dbf38a8b19f8bb7 Mon Sep 17 00:00:00 2001
-From: David Bremner <bremner@unb.ca>
-Date: Fri, 29 Aug 2008 20:46:20 -0300
-Subject: [PATCH] call File::MimeInfo::default if ::magic() returns undef

 
 

----
- IkiWiki/Plugin/filecheck.pm |    2 +-
- 1 files changed, 1 insertions(+), 1 deletions(-)
-
-diff --git a/IkiWiki/Plugin/filecheck.pm b/IkiWiki/Plugin/filecheck.pm
-index 9c7a8db..a94c02b 100644
---- a/IkiWiki/Plugin/filecheck.pm
-+++ b/IkiWiki/Plugin/filecheck.pm
-@@ -127,7 +127,7 @@ sub match_mimetype ($$;@) { #{{{
-        }
-        my $mimetype=File::MimeInfo::Magic::magic($file);
-        if (! defined $mimetype) {
--               $mimetype="unknown";
-+               $mimetype=File::MimeInfo::Magic::default($file);
-        }
-
-        my $regexp=IkiWiki::glob2re($wanted);
---
-1.5.6.3
-</pre>
+>>> Applied