summaryrefslogtreecommitdiff
path: root/ACE/bin/fuzz.pl
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2012-02-24 08:47:11 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2012-02-24 08:47:11 +0000
commitf1156bd00a6cafff84a70e08332539518e083d36 (patch)
treede4658b5d57d494038c343c8c1dcf79325203288 /ACE/bin/fuzz.pl
parent0a334a86f05f6fd352bb128023faf1b4be4be63a (diff)
downloadATCD-f1156bd00a6cafff84a70e08332539518e083d36.tar.gz
Fri Feb 24 08:45:08 UTC 2012 Johnny Willemsen <jwillemsen@remedy.nl>
* ace/Compression/ACE_Compression.mpc: * ace/Compression/rle/ACE_RLECompression.mpc: Fixed id and install problems * bin/fuzz.pl: Extended check for incorrect id tags
Diffstat (limited to 'ACE/bin/fuzz.pl')
-rwxr-xr-xACE/bin/fuzz.pl13
1 files changed, 10 insertions, 3 deletions
diff --git a/ACE/bin/fuzz.pl b/ACE/bin/fuzz.pl
index 0ea5a0a10f7..87bc223b140 100755
--- a/ACE/bin/fuzz.pl
+++ b/ACE/bin/fuzz.pl
@@ -54,6 +54,7 @@ use PerlACE::Run_Test;
@files_generic = ();
@files_doxygen = ();
@files_conf = ();
+@files_rb = ();
# To keep track of errors and warnings
$errors = 0;
@@ -138,6 +139,9 @@ sub store_file ($)
elsif ($name =~ /\.py$/i) {
push @files_py, ($name);
}
+ elsif ($name =~ /\.(rb|erb)$/i) {
+ push @files_rb, ($name);
+ }
elsif ($name =~ /\.vcproj$/i) {
push @files_vcproj, ($name);
}
@@ -254,15 +258,18 @@ sub check_for_id_string ()
if (open (FILE, $file)) {
print "Looking at file $file\n" if $opt_d;
while (<FILE>) {
- if (/\$Id\:/ or /\$Id\$/) {
- $found = 1;
- }
if (/\$id\$/) {
print_error ("$file:$.: Incorrect \$id\$ found (correct casing)");
}
if (/\$Id:\$/) {
print_error ("$file:$.: Incorrect \$Id:\$ found (remove colon)");
}
+ if (/\$Id$/) {
+ print_error ("$file:$.: Incorrect \$Id: found (remove colon, added \$)");
+ }
+ if (/\$Id\:/ or /\$Id\$/) {
+ $found = 1;
+ }
}
close (FILE);
if ($found == 0) {