From 0391d2a1ee0bfae0d811433dc9e30c9a94feba32 Mon Sep 17 00:00:00 2001
From: CoprDistGit <infra@openeuler.org>
Date: Mon, 5 Aug 2024 02:47:43 +0000
Subject: automatic import of hunspell-en

---
 perl.regex.patch | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 perl.regex.patch

(limited to 'perl.regex.patch')

diff --git a/perl.regex.patch b/perl.regex.patch
new file mode 100644
index 0000000..e8086cd
--- /dev/null
+++ b/perl.regex.patch
@@ -0,0 +1,22 @@
+--- a/scowl/src/add-affixes	2017-09-25 11:58:46.898706402 +0100
++++ b/scowl/src/add-affixes	2017-09-25 11:59:46.952904766 +0100
+@@ -72,7 +72,7 @@
+   next unless $q eq '' || $use_all >= 2;
+   my @a = split /, | \| /, $a;
+   @a = grep {my ($word,$tags,$level)
+-		 = /^([A-Za-z\']+)([~<!?]*)(| [\d.]+)(| {\S+})$/ or die $_;
++		 = /^([A-Za-z\']+)([~<!?]*)(| [\d.]+)(| \{\S+\})$/ or die $_;
+ 	     $_ = $word;
+ 	     $tags !~ /~|\?|!</ && $level <= $inc_level} @a;
+   @a = grep {not $remove{"$w:$p:$_"}} @a;
+--- a/scowl/src/add-other-forms	2017-09-25 12:04:44.139040499 +0100
++++ b/scowl/src/add-other-forms	2017-09-25 12:04:55.521509492 +0100
+@@ -11,7 +11,7 @@
+   splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
+   @a = ();
+   foreach (@a0) {
+-    s/ {.+?}//g; s/ \(.+?\)//g; 
++    s/ \{.+?\}//g; s/ \(.+?\)//g; 
+     s/ \| / /g; s/ \/ / /g;
+     push @a, (split / /, $_);
+   }
-- 
cgit v1.2.3