summaryrefslogtreecommitdiff
path: root/bin/fuzz.pl
diff options
context:
space:
mode:
authorbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2000-06-04 01:57:09 +0000
committerbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2000-06-04 01:57:09 +0000
commit33f6c473417472786c6b375534eeb36ff62336bd (patch)
treece1f24ae70f5a36e44d4afd5f986949c042032d6 /bin/fuzz.pl
parent0e3e52baf98133eadb07a10a508581ff725171b2 (diff)
downloadATCD-33f6c473417472786c6b375534eeb36ff62336bd.tar.gz
ChangeLogTag:Sat Jun 3 18:51:46 2000 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin/fuzz.pl')
-rwxr-xr-xbin/fuzz.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/bin/fuzz.pl b/bin/fuzz.pl
index 5ee6932b2f2..55a2a86fc9e 100755
--- a/bin/fuzz.pl
+++ b/bin/fuzz.pl
@@ -274,7 +274,10 @@ sub check_for_line_length ()
print "Looking at file $file\n" if $opt_d;
while (<FILE>) {
++$line;
- if (/.{80,}/) {
+
+ # Make sure to ignore ACE_RCSID lines, since they
+ # are difficult to get under 80 chars.
+ if (/.{80,}/ and !/^ACE_RCSID/) {
print_error ("Over 80 chars on line $line in $file");
}
}
@@ -351,7 +354,7 @@ sub check_for_tchar
if (/ASYS_TEXT/) {
print_error ("ASYS_TEXT on line $line in $file");
}
- elsif (/TEXT/ and $` !~ /ACE_/) {
+ elsif (/TEXT\s+\(/ and $` !~ /ACE_/) {
print_error ("TEXT found on line $line in $file");
}
}