From: Reuben Thomas Date: Fri, 16 Dec 2011 16:24:40 +0000 (+0000) Subject: Add /usr/bin/env detection with MIME type for Perl scripts. X-Git-Tag: FILE5_10~9 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8f3f7e1aa896a67187c42a767cb3f22c618e9cef;p=file Add /usr/bin/env detection with MIME type for Perl scripts. --- diff --git a/magic/Magdir/perl b/magic/Magdir/perl index 8c740bc3..ab5af826 100644 --- 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