|
@@ -2209,8 +2209,9 @@ sub process {
|
|
|
|
|
|
# * goes on variable not on type
|
|
|
# (char*[ const])
|
|
|
- if ($line =~ m{\($NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)\)}) {
|
|
|
- my ($from, $to) = ($1, $1);
|
|
|
+ while ($line =~ m{(\($NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)\))}g) {
|
|
|
+ #print "AA<$1>\n";
|
|
|
+ my ($from, $to) = ($2, $2);
|
|
|
|
|
|
# Should start with a space.
|
|
|
$to =~ s/^(\S)/ $1/;
|
|
@@ -2225,8 +2226,10 @@ sub process {
|
|
|
ERROR("POINTER_LOCATION",
|
|
|
"\"(foo$from)\" should be \"(foo$to)\"\n" . $herecurr);
|
|
|
}
|
|
|
- } elsif ($line =~ m{\b$NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)($Ident)}) {
|
|
|
- my ($from, $to, $ident) = ($1, $1, $2);
|
|
|
+ }
|
|
|
+ while ($line =~ m{(\b$NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)($Ident))}g) {
|
|
|
+ #print "BB<$1>\n";
|
|
|
+ my ($from, $to, $ident) = ($2, $2, $3);
|
|
|
|
|
|
# Should start with a space.
|
|
|
$to =~ s/^(\S)/ $1/;
|