File qemu.aa5ccadcca3e6018ebd9d2e8b0a0604f7cb0cd59.p... of Package qemu-2.4

Overview Repositories Revisions Requests Users Attributes Meta

File qemu.aa5ccadcca3e6018ebd9d2e8b0a0604f7cb0cd59.patch of Package qemu-2.4

From: Fam Zheng <famz@redhat.com>
Date: Tue, 20 Oct 2015 15:38:46 +0800
Subject: aa5ccadcca3e6018ebd9d2e8b0a0604f7cb0cd59

scripts/text2pod.pl: Escape left brace

Latest perl now deprecates "{" literal in regex and print warnings like
"unescaped left brace in regex is deprecated".  Add escapes to keep it
happy.

Signed-off-by: Fam Zheng <famz@redhat.com>

Message-Id: <1445326726-16031-1-git-send-email-famz@redhat.com>
Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>
---
 scripts/texi2pod.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

--- a/scripts/texi2pod.pl
+++ b/scripts/texi2pod.pl
@@ -308,25 +308,25 @@ while(<$inf>) {
 
     /^\@((?:small)?example|display)/ and do {
 	push @endwstack, $endw;
 	$endw = $1;
 	$shift = "\t";
 	$_ = "";	# need a paragraph break
     };
 
     /^\@item\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
 	@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";
     };
 
     /^\@itemx?\s*(.+)?$/ and do {
 	if (defined $1) {
 	    # Entity escapes prevent munging by the <> processing below.
 	    $_ = "\n=item $ic\&LT;$1\&GT;\n";
 	} else {
 	    $_ = "\n=item $ic\n";
 	    $ic =~ y/A-Ya-y/B-Zb-z/;

Places

File qemu.aa5ccadcca3e6018ebd9d2e8b0a0604f7cb0cd59.patch of Package qemu-2.4

Places