diff options
| author | Christos Zoulas <christos@zoulas.com> | 2017-02-21 18:34:55 +0000 |
|---|---|---|
| committer | Christos Zoulas <christos@zoulas.com> | 2017-02-21 18:34:55 +0000 |
| commit | 1d54e29189e67516da5e2557663255e783284de1 (patch) | |
| tree | e56d36560ff22211144eeab99a12eb93f719d7d2 | |
| parent | d3b30e2fb87bb6d58c60b2d178dc5657cce61727 (diff) | |
| download | file-git-1d54e29189e67516da5e2557663255e783284de1.tar.gz | |
bump perl to exceed 'c'
| -rw-r--r-- | magic/Magdir/perl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/magic/Magdir/perl b/magic/Magdir/perl index 099a22d1..c391d4a7 100644 --- a/magic/Magdir/perl +++ b/magic/Magdir/perl @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------ -# $File: perl,v 1.25 2016/06/07 23:28:37 rrt Exp $ +# $File: perl,v 1.26 2017/02/21 18:34:55 christos 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> |