diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2012-02-24 08:47:11 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2012-02-24 08:47:11 +0000 |
commit | f1156bd00a6cafff84a70e08332539518e083d36 (patch) | |
tree | de4658b5d57d494038c343c8c1dcf79325203288 /ACE/bin/fuzz.pl | |
parent | 0a334a86f05f6fd352bb128023faf1b4be4be63a (diff) | |
download | ATCD-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-x | ACE/bin/fuzz.pl | 13 |
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) { |