From 3c60e59aee7425ba599d208678b62efa9a4a1d3f Mon Sep 17 00:00:00 2001 From: Christos Zoulas Date: Tue, 21 Feb 2017 18:34:55 +0000 Subject: [PATCH] bump perl to exceed 'c' --- magic/Magdir/perl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/magic/Magdir/perl b/magic/Magdir/perl index bbe10ba..3423b5c 100644 --- a/magic/Magdir/perl +++ b/magic/Magdir/perl @@ -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