re GNATS libgcj/378 (Problem with scripts/classes.pl)
* scripts/classes.pl (scan): Skip lines with leading `*'. Fix for PR libgcj/378. From-SVN: r38198
This commit is contained in:
parent
27b18383e6
commit
7896f1e43a
@ -1,3 +1,8 @@
|
||||
2000-12-11 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* scripts/classes.pl (scan): Skip lines with leading `*'.
|
||||
Fix for PR libgcj/378.
|
||||
|
||||
2000-12-11 Bryce McKinlay <bryce@albatross.co.nz>
|
||||
|
||||
* configure.in: Remove check for -fuse-divide-subroutine.
|
||||
|
@ -68,8 +68,12 @@ sub scan
|
||||
local ($outer, $classname);
|
||||
while (<FILE>)
|
||||
{
|
||||
# NOTE: we don't skip `/*' comments.
|
||||
s,//.*$,,;
|
||||
# NOTE: we don't skip `/*' comments. However, we do
|
||||
# skip lines with a `*' with leading whitespace. This
|
||||
# catches the most important cases.
|
||||
s,^\s*\*.*$,,;
|
||||
|
||||
# For now assume that class names start with upper
|
||||
# case letter.
|
||||
next unless /\b(class|interface) ([A-Z][A-Za-z0-9]+)/;
|
||||
|
Loading…
Reference in New Issue
Block a user