From b0b3b01c9d11b6f319ead61799c50c1f779dd60d Mon Sep 17 00:00:00 2001
From: Pino Toscano <pino@kde.org>
Date: Mon, 4 Jun 2018 17:33:07 +0200
Subject: [PATCH] Add text/x-perl alias to application/x-perl

text/x-perl is the name for Perl scripts in the old MIME type system,
and thus produced e.g. as content-type by users of that MIME system.
---
 freedesktop.org.xml.in | 1 +
 1 file changed, 1 insertion(+)

diff --git a/freedesktop.org.xml.in b/freedesktop.org.xml.in
index e6931a0..c0023a1 100644
--- a/freedesktop.org.xml.in
+++ b/freedesktop.org.xml.in
@@ -3297,6 +3297,7 @@ command to generate the output files.
     <sub-class-of type="application/x-executable"/>
     <sub-class-of type="text/plain"/>
     <generic-icon name="text-x-script"/>
+    <alias type="text/x-perl"/>
     <magic priority="50">
       <match type="string" value='eval \"exec /usr/local/bin/perl' offset="0"/>
       <match type="string" value="/bin/perl" offset="2:16"/>
-- 
2.17.1