NetBSD Problem Report #56082

From www@netbsd.org  Mon Mar 29 00:10:27 2021
Return-Path: <www@netbsd.org>
Received: from mail.netbsd.org (mail.netbsd.org [199.233.217.200])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	(Client CN "mail.NetBSD.org", Issuer "mail.NetBSD.org CA" (not verified))
	by mollari.NetBSD.org (Postfix) with ESMTPS id 967CD1A9217
	for <gnats-bugs@gnats.NetBSD.org>; Mon, 29 Mar 2021 00:10:27 +0000 (UTC)
Message-Id: <20210329001026.025F81A921F@mollari.NetBSD.org>
Date: Mon, 29 Mar 2021 00:10:26 +0000 (UTC)
From: aran@100acres.us
Reply-To: aran@100acres.us
To: gnats-bugs@NetBSD.org
Subject: Aspell uses GNU regex extenions, which aren't currenlty supported.
X-Send-Pr-Version: www-1.0

>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/(?<!\\)\#.*$//;

Home	PR Database Search