Commit aa5ccadc authored by Fam Zheng's avatar Fam Zheng Committed by Paolo Bonzini
Browse files

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: default avatarFam Zheng <famz@redhat.com>

Message-Id: <1445326726-16031-1-git-send-email-famz@redhat.com>
Signed-off-by: default avatarPaolo Bonzini <pbonzini@redhat.com>
parent cc57501d

scripts/texi2pod.pl

+1 −1
Original line number Diff line number Diff line
@@ -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";