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

libjava/ChangeLog

+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.

libjava/scripts/classes.pl

@@ -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]+)/;