core: fix a problem with identifying certain m4a files.

(cherry picked from commit 3d45d4c)
zotonic · Mar 2, 2017 · 633c165 · 633c165
1 parent 9ceb9a4
commit 633c165
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/support/z_media_identify.erl b/src/support/z_media_identify.erl
@@ -218,6 +218,11 @@ identify_file_unix(Cmd, File, OriginalFilename) ->
                         "audio/" ++ _ = M -> {ok, [{mime,M}]};
                         _ -> {ok, [{mime, "video/x-ms-asf"}]}
                     end;
+                "video/mp4" -> 
+                    case guess_mime(OriginalFilename) of
+                        "audio/" ++ _ = M -> {ok, [{mime,M}]};
+                        _ -> {ok, [{mime, "video/mp4"}]}
+                    end;
                 _ ->
                     {ok, [{mime, Mime}]}
             end