pkg/56082: Aspell uses GNU regex extenions, which aren't currenlty supported.

[aran%100acres.us@localhost]

>Number:         56082
>Category:       pkg
>Synopsis:       Aspell uses GNU regex extenions, which aren't currenlty supported.
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon Mar 29 00:15:00 +0000 2021
>Originator:     Aran Clauson
>Release:        2020Q4
>Organization:
None
>Environment:
NetBSD owl 9.99.81 NetBSD 9.99.81 (OWL) #0: Mon Mar 22 12:41:15 PDT 2021  aran@owl:/home/aran/var/objs/sys/arch/amd64/compile/OWL amd64

>Description:
NetBSD recently dropped default support for the GNU regex extensions like \w to mean [[:alnum]_].  This causes aspell to abort at runtime.   

Upstream has been notified. 
>How-To-Repeat:
Use aspell with emacs and flyspell-mode.  Emacs will create an aspell process that promptly aborts. 
>Fix:
The following patches replace \w with [[:alnum:]_]

$NetBSD$

--- modules/filter/modes/perl.amf.orig  2021-03-28 23:50:48.613071297 +0000
+++ modules/filter/modes/perl.amf
@@ -2,7 +2,7 @@ MODE perl
 
 ASPELL >=0.60.1
 
-MAGIC /0:256:^[ \t]*\#!((\/\w*)+)\/perl/pl/pm
+MAGIC /0:256:^[ \t]*\#!((\/[[:alnum:]_]*)+)\/perl/pl/pm
 MAGIC /<noregex>/pl/pm
 
 DESCRIPTION mode for checking Perl comments and string literals
$NetBSD$

--- auto/MkSrc/ProcNativeImpl.pm.orig   2021-03-28 23:55:43.716762626 +0000
+++ auto/MkSrc/ProcNativeImpl.pm
@@ -54,7 +54,7 @@ $info{errors}{proc}{native_impl} = sub {
       die "can't find parm for \"$p\"";
     };
     my $proc_mesg = sub {
-      my @mesg = split /\%(\w+)/, $_[0];
+      my @mesg = split /\%([[:alnum:]_]+)/, $_[0];
       my $mesg = '';
       while (true) {
        my $m = shift @mesg;
$NetBSD$

--- auto/MkSrc/Read.pm.orig     2021-03-28 23:55:35.334712924 +0000
+++ auto/MkSrc/Read.pm
@@ -85,7 +85,7 @@ sub advance ( ) {
   do {
     $line = <IN>;
     return unless defined $line;
-    $in_pod = $1 if $line =~ /^\=(\w+)/;
+    $in_pod = $1 if $line =~ /^\=([[:alnum:]_]+)/;
     $line = '' if $in_pod;
     $in_pod = undef if $in_pod && $in_pod eq 'cut';
     $line =~ s/(?<!\\)\#.*$//;