Blame SOURCES/perl.regex.patch
|
 |
2c848e |
--- a/scowl/src/add-affixes 2017-09-25 11:58:46.898706402 +0100
|
|
|
2c848e |
+++ b/scowl/src/add-affixes 2017-09-25 11:59:46.952904766 +0100
|
|
|
2c848e |
@@ -72,7 +72,7 @@
|
|
|
2c848e |
next unless $q eq '' || $use_all >= 2;
|
|
|
2c848e |
my @a = split /, | \| /, $a;
|
|
|
2c848e |
@a = grep {my ($word,$tags,$level)
|
|
|
2c848e |
- = /^([A-Za-z\']+)([~
|
|
|
2c848e |
+ = /^([A-Za-z\']+)([~
|
|
|
2c848e |
$_ = $word;
|
|
|
2c848e |
$tags !~ /~|\?|!</ && $level <= $inc_level} @a;
|
|
|
2c848e |
@a = grep {not $remove{"$w:$p:$_"}} @a;
|
|
|
2c848e |
--- a/scowl/src/add-other-forms 2017-09-25 12:04:44.139040499 +0100
|
|
|
2c848e |
+++ b/scowl/src/add-other-forms 2017-09-25 12:04:55.521509492 +0100
|
|
|
2c848e |
@@ -11,7 +11,7 @@
|
|
|
2c848e |
splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
|
|
|
2c848e |
@a = ();
|
|
|
2c848e |
foreach (@a0) {
|
|
|
2c848e |
- s/ {.+?}//g; s/ \(.+?\)//g;
|
|
|
2c848e |
+ s/ \{.+?\}//g; s/ \(.+?\)//g;
|
|
|
2c848e |
s/ \| / /g; s/ \/ / /g;
|
|
|
2c848e |
push @a, (split / /, $_);
|
|
|
2c848e |
}
|