33 lines
929 B
Diff
33 lines
929 B
Diff
From 3c60e59aee7425ba599d208678b62efa9a4a1d3f Mon Sep 17 00:00:00 2001
|
|
From: Christos Zoulas <christos@zoulas.com>
|
|
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 <tom@eborcom.com>
|