From: Christos Zoulas <christos@zoulas.com>
Date: Thu, 1 Mar 2007 20:50:17 +0000 (+0000)
Subject: add perl package support.
X-Git-Tag: FILE4_20~4
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=b7840ce10ca9c220af905b1612e96dd512ef0594;p=file

add perl package support.
---

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index a00c642c..c27fd059 100644
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -13,10 +13,10 @@
 0	string		eval\ "exec\ /usr/local/bin/perl	perl script text executable
 0	string		eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	perl script text
 
-# a couple more, by me
-# XXX: christos matches
-#0	regex		package		Perl5 module source text (via regex)
-0	string		package		Perl5 module source text
+# by Dmitry V. Levin and Alexey Tourbin
+0	string		package
+>1	regex		\^.{7}[\ \	]+[A-Za-z_]
+>>1	regex		\^.{9}[\ \	]*[0-9A-Za-z_:]*\ *;	Perl5 module source text
 
 # Perl POD documents
 # From: Tom Hukins <tom@eborcom.com>