texi2pod.pl: Escape braces in regexp involving @strong{...}.

	* texi2pod.pl: Escape braces in regexp involving @strong{...}.

From-SVN: r226585

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index cd6e1c52f32b0c16b073dd2bf7802905484f6344..b8581ccd7eeffb213e45ab394645f2d135ed94df 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2015-08-04  Uros Bizjak  <ubizjak@gmail.com>
+
+       * texi2pod.pl: Escape braces in regexp involving @strong{...}.
+
 2015-07-15  Tom de Vries  <tom@codesourcery.com>
 
        * check_GNU_style.sh (cat_with_prefix): Fix quoting.
@@ -140,7 +144,7 @@
 
 2014-11-11  Marat Zakirov  <m.zakirov@samsung.com>
 
-       * mklog: Symbol '}' stops search for changes.  
+       * mklog: Symbol '}' stops search for changes.
 
 2014-11-11  Tobias Burnus  <burnus@net-b.de>
 
@@ -148,8 +152,8 @@
 
 2014-11-07  Marat Zakirov  <m.zakirov@samsung.com>
 
-       * mklog: Always doubt in functions.  
-       Add EOF protection.  
+       * mklog: Always doubt in functions.
+       Add EOF protection.
 
 2014-10-31  Jan-Benedict Glaw  <jbglaw@lug-owl.de>
 
@@ -554,7 +558,7 @@
 
 2012-05-31  Marek Polacek  <polacek@redhat.com>
 
-       * mklog: Prevent printing three spaces after the date.
+       * mklog: Prevent printing three spaces after the date.
 
 2012-06-04   Diego Novillo  <dnovillo@google.com>
 
@@ -821,8 +825,8 @@
 
 2010-07-02  Iain Sandoe  <iains@gcc.gnu.org>
 
-       * compare-debug (Darwin): Remove '-x' flag from ld-based object
-       stripping.  Add a comment as to why we do it this way.
+       * compare-debug (Darwin): Remove '-x' flag from ld-based object
+       stripping.  Add a comment as to why we do it this way.
 
 2010-06-20  Alexandre Oliva  <aoliva@redhat.com>
 

diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index eba1bcaa3cffa78b46030b219d04fe7d68367658..91bdbb5cea933d0381f2924ab94490fca31d5800 100755 (executable)
--- a/contrib/texi2pod.pl
+++ b/contrib/texi2pod.pl
@@ -316,7 +316,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";