From ea98dfade6c95fa46c97eb1d9880cff0e4f37ba4 Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Tue, 31 May 2016 10:18:27 +0000
Subject: Fix build with Perl 5.25.1+.

Unescaped left brace in regex is illegal in regex.

With hat:	perl@
Sponsored by:	Absolight
---
 emulators/qemu/files/patch-scripts_texi2pod.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 emulators/qemu/files/patch-scripts_texi2pod.pl

(limited to 'emulators/qemu/files/patch-scripts_texi2pod.pl')

diff --git a/emulators/qemu/files/patch-scripts_texi2pod.pl b/emulators/qemu/files/patch-scripts_texi2pod.pl
new file mode 100644
index 000000000000..451c54609e5e
--- /dev/null
+++ b/emulators/qemu/files/patch-scripts_texi2pod.pl
@@ -0,0 +1,11 @@
+--- scripts/texi2pod.pl.orig	2015-11-03 20:01:35 UTC
++++ scripts/texi2pod.pl
+@@ -317,7 +317,7 @@ while(<$inf>) {
+ 	@columns = ();
+ 	for $column (split (/\s*\@tab\s*/, $1)) {
+ 	    # @strong{...} is used a @headitem work-alike
+-	    $column =~ s/^\@strong{(.*)}$/$1/;
++	    $column =~ s/^\@strong\{(.*)\}$/$1/;
+ 	    push @columns, $column;
+ 	}
+ 	$_ = "\n=item ".join (" : ", @columns)."\n";
-- 
cgit v1.2.3