summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2001-03-01 23:50:55 +0000
committerbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2001-03-01 23:50:55 +0000
commit597eae4d405b17408271fbcdfc9966f56122c1d7 (patch)
tree7e34258ec519760572f141a57723119d7a471a78 /bin
parented6589b360772f5dd7ecfbb395af8f9c9174d232 (diff)
downloadATCD-597eae4d405b17408271fbcdfc9966f56122c1d7.tar.gz
ChangeLogTag:Thu Mar 1 15:48:10 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
-rwxr-xr-xbin/fuzz.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/bin/fuzz.pl b/bin/fuzz.pl
index 5c13309acd6..b0e63f5dfa6 100755
--- a/bin/fuzz.pl
+++ b/bin/fuzz.pl
@@ -588,7 +588,7 @@ sub check_for_bad_ace_trace()
$class = $1;
$function = $2;
}
- elsif (m/^(ACE_[^\s]*) \(/i) {
+ elsif (m/^([^\s^\(]*) \(/i) {
$class = "";
$function = $1;
}
@@ -598,7 +598,12 @@ sub check_for_bad_ace_trace()
|| m/ACE_TRACE\s*\(\s*\"(.*)\"/) {
my $trace = $1;
- if ($class =~ m/(^[^\s][^\<^\s]*)\s*\</) {
+ # reduce the classname
+ if ($class =~ m/([^\s][^\<^\s]*)\s*\</) {
+ $class = $1;
+ }
+
+ if ($class =~ m/([^\s^\&^\*]*)\s*$/) {
$class = $1;
}