|
@@ -1686,8 +1686,8 @@ sub process {
|
|
# Modifiers should have spaces.
|
|
# Modifiers should have spaces.
|
|
$to =~ s/(\b$Modifier$)/$1 /;
|
|
$to =~ s/(\b$Modifier$)/$1 /;
|
|
|
|
|
|
- #print "from<$from> to<$to>\n";
|
|
|
|
- if ($from ne $to) {
|
|
|
|
|
|
+ #print "from<$from> to<$to> ident<$ident>\n";
|
|
|
|
+ if ($from ne $to && $ident !~ /^$Modifier$/) {
|
|
ERROR("\"foo${from}bar\" should be \"foo${to}bar\"\n" . $herecurr);
|
|
ERROR("\"foo${from}bar\" should be \"foo${to}bar\"\n" . $herecurr);
|
|
}
|
|
}
|
|
}
|
|
}
|