diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-04-21 12:25:47 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-04-21 12:25:47 +0000 |
commit | 5d44899ad38b5c4ca63cc6475d223b47009bb936 (patch) | |
tree | 392d512dc09e5d1ca6e372eb61bfb8906faa0fb8 /ACE/bin/fuzz.pl | |
parent | c14eb42b0b665d4faa08dc6dae8cf11595848f89 (diff) | |
download | ATCD-5d44899ad38b5c4ca63cc6475d223b47009bb936.tar.gz |
Thu Apr 21 12:25:13 UTC 2011 Johnny Willemsen <jwillemsen@remedy.nl>
* bin/fuzz.pl:
Check *.conf files for an Id tag
Diffstat (limited to 'ACE/bin/fuzz.pl')
-rwxr-xr-x | ACE/bin/fuzz.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/ACE/bin/fuzz.pl b/ACE/bin/fuzz.pl index c009be35f63..acb51359f75 100755 --- a/ACE/bin/fuzz.pl +++ b/ACE/bin/fuzz.pl @@ -53,6 +53,7 @@ use PerlACE::Run_Test; @files_run_pl = (); @files_generic = (); @files_doxygen = (); +@files_conf = (); # To keep track of errors and warnings $errors = 0; @@ -157,6 +158,9 @@ sub store_file ($) elsif ($name =~ /\.(doxygen)$/i) { push @files_doxygen, ($name); } + elsif ($name =~ /\.(conf)$/i) { + push @files_conf, ($name); + } elsif ($name =~ /\.(pm|cmd|java|sh|txt|xml)$/i) { push @files_generic, ($name); } @@ -215,8 +219,9 @@ sub check_for_inline_in_cpp () sub check_for_id_string () { print "Running \$Id\$ string check\n"; - foreach $file (@files_cpp, @files_inl, @files_h, @files_mpc, @files_bor, @files_gnu, - @files_html, @files_idl, @files_pl, @makefile_files, @files_cdp, @files_py) { + foreach $file (@files_cpp, @files_inl, @files_h, @files_mpc, @files_bor, + @files_gnu, @files_html, @files_idl, @files_pl, + @makefile_files, @files_cdp, @files_py, @files_conf) { my $found = 0; if (open (FILE, $file)) { print "Looking at file $file\n" if $opt_d; |