Add /usr/bin/env detection with MIME type for Perl scripts.

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index 8c740bc340976be60230f6e6a4681c3f21e544ae..ab5af826e38b7edeeba81dc31572cc8a301b601e 100644 (file)
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -1,6 +1,5 @@
-
 #------------------------------------------------------------------------------
-# $File$
+# $File: perl,v 1.16 2009/09/19 16:28:11 christos Exp $
 # perl:  file(1) magic for Larry Wall's perl language.
 #
 # The `eval' lines recognizes an outrageously clever hack.
@@ -20,7 +19,10 @@
 !:mime text/x-perl
 0      search/1        eval\ '(exit\ $?0)'\ &&\ eval\ 'exec    Perl script text
 !:mime text/x-perl
-
+0      search/1        #!/usr/bin/env\ perl    Perl script text executable
+!:mime text/x-perl
+0      search/1        #!\ /usr/bin/env\ perl  Perl script text executable
+!:mime text/x-perl
 
 # by Dmitry V. Levin and Alexey Tourbin
 # check the first line