File a69b48eda3ebd66eec30a34a377c7a00c6f8e36c.patch of Package po4a

Overview Repositories Revisions Requests Users Attributes Meta

File a69b48eda3ebd66eec30a34a377c7a00c6f8e36c.patch of Package po4a (Revision ab559f8d310787735a8d068df17ad928)

Currently displaying revision ab559f8d310787735a8d068df17ad928 , Show latest

From a69b48eda3ebd66eec30a34a377c7a00c6f8e36c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jean-No=C3=ABl=20Avila?= <jn.avila@free.fr>
Date: Thu, 20 May 2021 08:48:25 +0200
Subject: [PATCH] Instead of using a regex, use subsbtring matching for flags

This change mitigates #302 when perl exhibits the bug
https://github.com/Perl/perl5/issues/18604

and seems to speed up flag matching.

fix #302
---
 NEWS                  | 1 +
 lib/Locale/Po4a/Po.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Locale/Po4a/Po.pm b/lib/Locale/Po4a/Po.pm
index 5127bf6ea..16c0689fe 100644
--- a/lib/Locale/Po4a/Po.pm
+++ b/lib/Locale/Po4a/Po.pm
@@ -1467,7 +1467,7 @@ sub push_raw {
         $flags = " $flags ";
         $flags =~ s/,/ /g;
         foreach my $flag (@known_flags) {
-            if ( $flags =~ /\s$flag\s/ ) {    # if flag to be set
+			if (index($flags, " $flag ") != -1) {     # if flag to be set
                 unless ( defined( $self->{po}{$msgid}{'flags'} )
                     && $self->{po}{$msgid}{'flags'} =~ /\b$flag\b/ )
                 {

Places

File a69b48eda3ebd66eec30a34a377c7a00c6f8e36c.patch of Package po4a (Revision ab559f8d310787735a8d068df17ad928)

Places