From: Christos Zoulas Date: Sat, 14 Feb 2015 17:53:29 +0000 (+0000) Subject: PR/304: Relax perl anchored search. X-Git-Tag: FILE5_23~48 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ca3299b6c5a9c222bd6f6807de891b75d71b6464;p=file PR/304: Relax perl anchored search. --- diff --git a/magic/Magdir/perl b/magic/Magdir/perl index c0bec961..b1a5c086 100644 --- a/magic/Magdir/perl +++ b/magic/Magdir/perl @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------ -# $File: perl,v 1.21 2013/12/08 23:33:18 christos Exp $ +# $File: perl,v 1.22 2014/04/28 12:04:35 christos Exp $ # perl: file(1) magic for Larry Wall's perl language. # # The `eval' lines recognizes an outrageously clever hack. @@ -18,7 +18,7 @@ 0 search/1 #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 search/1 #! ->0 regex \^#!.*/bin/perl$ Perl script text executable +>0 regex \^#!.*/bin/perl([[:space:]].*)*$ Perl script text executable !:mime text/x-perl # by Dmitry V. Levin and Alexey Tourbin