bump perl to exceed 'c'

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index bbe10ba1a6ecb6699a060254bf8889bda020d5d3..3423b5c30bd35d2d6a410fa4edbab64ac7b9fea3 100644 (file)
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: perl,v 1.24 2015/03/27 17:58:58 christos Exp $
+# $File: perl,v 1.25 2016/06/07 23:28:37 rrt Exp $
 # perl:  file(1) magic for Larry Wall's perl language.
 #
 # The `eval' lines recognizes an outrageously clever hack.
@@ -33,14 +33,14 @@
 
 # by Dmitry V. Levin and Alexey Tourbin
 # check the first line
-0      search/1024     package
+0      search/8192     package
 >0     regex           \^package[\ \t]+[0-9A-Za-z_:]+\ *;      Perl5 module source text
-!:strength + 10
+!:strength + 40
 # not 'p', check other lines
-0      search/1024     !p
+0      search/8192     !p
 >0     regex           \^package[\ \t]+[0-9A-Za-z_:]+\ *;
 >>0    regex           \^1\ *;|\^(use|sub|my)\ .*[(;{=]        Perl5 module source text
-!:strength + 10
+!:strength + 75
 
 # Perl POD documents
 # From: Tom Hukins <tom@eborcom.com>