add perl package support.

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index a00c642c7a3d554dbd5229bca8e6b9b0555fab18..c27fd059b901088d15375b0ecfbd29a895e81678 100644 (file)
--- 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>