From 39ecff80ad7c613b1ae571cdafd57f5cabe73272 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 2 Sep 2019 10:40:07 +0200
Subject: [PATCH] Correct a misspelling in perlrebackslash documentation

---
 ...missing-right-brace-in-regex-example.patch | 31 +++++++++++++++++++
 perl.spec                                     |  7 +++++
 2 files changed, 38 insertions(+)
 create mode 100644 perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch

diff --git a/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch b/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch
new file mode 100644
index 0000000..8a320d5
--- /dev/null
+++ b/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch
@@ -0,0 +1,31 @@
+From 7ea7c4bb61d23965a7ad7041fe9c58b5075aac85 Mon Sep 17 00:00:00 2001
+From: James E Keenan <jkeenan@cpan.org>
+Date: Sat, 31 Aug 2019 19:18:36 -0400
+Subject: [PATCH] Supply missing right brace in regex example
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+As suggested by Jim Avera in RT 134395.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pod/perlrebackslash.pod | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/pod/perlrebackslash.pod b/pod/perlrebackslash.pod
+index cfd182a7e1..4a8717346d 100644
+--- a/pod/perlrebackslash.pod
++++ b/pod/perlrebackslash.pod
+@@ -446,7 +446,7 @@ Mnemonic: I<g>roup.
+ =head3 Relative referencing
+ 
+ C<\g-I<N>> (starting in Perl 5.10.0) is used for relative addressing.  (It can
+-be written as C<\g{-I<N>>.)  It refers to the I<N>th group before the
++be written as C<\g{-I<N>}>.)  It refers to the I<N>th group before the
+ C<\g{-I<N>}>.
+ 
+ The big advantage of this form is that it makes it much easier to write
+-- 
+2.21.0
+
diff --git a/perl.spec b/perl.spec
index d2ec5e2..e205e58 100644
--- a/perl.spec
+++ b/perl.spec
@@ -284,6 +284,10 @@ Patch57:        perl-5.31.3-PATCH-perl-134325-Heap-buffer-overflow.patch
 # This is a binary patch and requires git.
 Patch58:        perl-5.30.0-PATCH-perl-134329-Use-after-free-in-regcomp.c.patch
 
+# Correct a misspelling in perlrebackslash documentation, RT#134395,
+# fixed after 5.31.3
+Patch59:        perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch
+
 # Link XS modules to libperl.so with EU::CBuilder on Linux, bug #960048
 Patch200:       perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
 
@@ -2872,6 +2876,7 @@ git add .
 git commit --author='Nobody <nobody@localhost>' --message 'Import'
 git am < %{PATCH58}
 rm -rf .git # Perl tests examine a git repository
+%patch59 -p1
 %patch200 -p1
 %patch201 -p1
 
@@ -2937,6 +2942,7 @@ perl -x patchlevel.h \
     'Fedora Patch56: Do not interpret 0x and 0b prefixes when numifying strings (RT#134230)' \
     'Fedora Patch57: Fix a buffer overread when compiling a regular expression with many escapes (RT#134325)' \
     'Fedora Patch58: Fix a buffer overflow when compiling a regular expression with many branches (RT#134329)' \
+    'Fedora Patch59: Correct a misspelling in perlrebackslash documentation (RT#134395)' \
     'Fedora Patch200: Link XS modules to libperl.so with EU::CBuilder on Linux' \
     'Fedora Patch201: Link XS modules to libperl.so with EU::MM on Linux' \
     %{nil}
@@ -5192,6 +5198,7 @@ popd
   (RT#134325)
 - Fix a buffer overflow when compiling a regular expression with many branches
   (RT#134329)
+- Correct a misspelling in perlrebackslash documentation (RT#134395)
 
 * Thu Aug 22 2019 Petr Pisar <ppisar@redhat.com> - 4:5.30.0-444
 - Fix a NULL pointer dereference in PerlIOVia_pushed()