From b7840ce10ca9c220af905b1612e96dd512ef0594 Mon Sep 17 00:00:00 2001
From: Christos Zoulas <christos@zoulas.com>
Date: Thu, 1 Mar 2007 20:50:17 +0000
Subject: [PATCH] add perl package support.

---
 magic/Magdir/perl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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>
-- 
2.40.0