From 32f07f408ffb920442072b06fd2e2fe15c7a48f2 Mon Sep 17 00:00:00 2001
From: Jan Palus <jpalus@fastmail.com>
Date: Wed, 5 Jul 2023 12:09:50 +0200
Subject: [PATCH 1/2] perl: use [:space:] class instead of fixed spaces

---
 magic/Magdir/perl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/magic/Magdir/perl b/magic/Magdir/perl
index c391d4a7..db1d633e 100644
--- a/magic/Magdir/perl
+++ b/magic/Magdir/perl
@@ -34,12 +34,12 @@
 # by Dmitry V. Levin and Alexey Tourbin
 # check the first line
 0	search/8192	package
->0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;	Perl5 module source text
+>0	regex		\^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*;	Perl5 module source text
 !:strength + 40
 # not 'p', check other lines
 0	search/8192	!p
->0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;
->>0	regex		\^1\ *;|\^(use|sub|my)\ .*[(;{=]	Perl5 module source text
+>0	regex		\^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*;
+>>0	regex		\^1[[:space:]]*;|\^(use|sub|my)[[:space:]].*[(;{=]	Perl5 module source text
 !:strength + 75
 
 # Perl POD documents
-- 
2.41.0

