7 print "Tabs found: $nTabsFound\n" ;
\r
14 processDir( "../cds" ) ;
\r
15 processDir( "../src" ) ;
\r
16 processDir( "../tests/test-hdr" ) ;
\r
17 processDir( "../tests/unit" ) ;
\r
18 processDir( "../tests/cppunit" ) ;
\r
23 my $dirName = shift ;
\r
24 print "Process $dirName directory...\n";
\r
26 opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";
\r
27 my @files = grep { /^[^\.]/ } readdir($dh);
\r
30 foreach my $file ( @files ) {
\r
31 if ( -d "$dirName/$file" ) {
\r
32 processDir("$dirName/$file") ;
\r
34 elsif ( $file =~ /\.(h|cpp)$/ ) {
\r
35 processFile( "$dirName/$file" ) ;
\r
40 sub processFile( $ )
\r
45 if ( open( my $fh, $file )) {
\r
49 $nTabsFound += $_ =~ s/\t/ /g;
\r
57 if ( open( my $fh, ">$file" )) {
\r