Mercurial > hg > CbC > CbC_gcc
diff libiberty/gather-docs @ 69:1b10fe6932e1
merge 69
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 21 Aug 2011 07:53:12 +0900 |
parents | f6334be47118 |
children | 04ced10e8804 |
line wrap: on
line diff
--- a/libiberty/gather-docs Tue Dec 14 03:58:33 2010 +0900 +++ b/libiberty/gather-docs Sun Aug 21 07:53:12 2011 +0900 @@ -1,7 +1,7 @@ #!/usr/bin/perl # -*- perl -*- -# Copyright (C) 2001 +# Copyright (C) 2001, 2009, 2011 # Free Software Foundation # # This file is part of the libiberty library. @@ -73,8 +73,8 @@ if (/^\@def[a-z]*[a-wyz] /) { - ($name) = m/[^\(]* ([^\( \t\r\n]+) *\(/; - $name =~ s/[ ]*$//; + ($name) = m/[^\(]* ([^\( \t\r\n\@]+) *(\(|\@?$)/; + $name =~ s/[ ]*\@?$//; $key = $name; $key =~ tr/A-Z/a-z/; $key =~ s/[^a-z0-9]+/ /g;