From: Christos Zoulas <christos@zoulas.com>
Date: Sat, 14 Feb 2015 17:53:29 +0000 (+0000)
Subject: PR/304: Relax perl anchored search.
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ea5d87afca6f7abd13ce40f9dadad3d0e65a9498;p=file

PR/304: Relax perl anchored search.
---

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index b5b54fbc..1f1fda66 100644
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: perl,v 1.22 2014/04/28 12:04:35 christos Exp $
+# $File: perl,v 1.23 2015/02/14 17:53:29 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