perl: re-strengthen hash-bang patterns

They were being out-matched by the catch-all varied.script patterns, and
thus losing their MIME types.

hash-bang patterns have to be at the very start of the file, so donâ\80\99t need
the leeway that the other patterns have been given.

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index e3677f15131f6daf37e513de215f35b316145211..bbe10ba1a6ecb6699a060254bf8889bda020d5d3 100644 (file)
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: perl,v 1.23 2015/02/14 17:53:29 christos Exp $
+# $File: perl,v 1.24 2015/03/27 17:58:58 christos Exp $
 # perl:  file(1) magic for Larry Wall's perl language.
 #
 # The `eval' lines recognizes an outrageously clever hack.
@@ -23,11 +23,11 @@
 !:mime text/x-perl
 0      search/1024     eval\ '(exit\ $?0)'\ &&\ eval\ 'exec    Perl script text
 !:mime text/x-perl
-0      search/1024     #!/usr/bin/env\ perl    Perl script text executable
+0      string  #!/usr/bin/env\ perl    Perl script text executable
 !:mime text/x-perl
-0      search/1024     #!\ /usr/bin/env\ perl  Perl script text executable
+0      string  #!\ /usr/bin/env\ perl  Perl script text executable
 !:mime text/x-perl
-0      search/1024     #!
+0      string  #!
 >0     regex   \^#!.*/bin/perl([[:space:]].*)*$        Perl script text executable
 !:mime text/x-perl