From 597eae4d405b17408271fbcdfc9966f56122c1d7 Mon Sep 17 00:00:00 2001
From: brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>
Date: Thu, 1 Mar 2001 23:50:55 +0000
Subject: ChangeLogTag:Thu Mar  1 15:48:10 2001  Darrell Brunsch
 <brunsch@uci.edu>

---
 bin/fuzz.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'bin')

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;
                     }
                     
-- 
cgit v1.2.1