diff options
author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-01 23:50:55 +0000 |
---|---|---|
committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-01 23:50:55 +0000 |
commit | 597eae4d405b17408271fbcdfc9966f56122c1d7 (patch) | |
tree | 7e34258ec519760572f141a57723119d7a471a78 /bin | |
parent | ed6589b360772f5dd7ecfbb395af8f9c9174d232 (diff) | |
download | ATCD-597eae4d405b17408271fbcdfc9966f56122c1d7.tar.gz |
ChangeLogTag:Thu Mar 1 15:48:10 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/fuzz.pl | 9 |
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; } |