Fixed cleaning script
authorkhizmax <libcds.dev@gmail.com>
Wed, 7 Sep 2016 20:52:03 +0000 (23:52 +0300)
committerkhizmax <libcds.dev@gmail.com>
Wed, 7 Sep 2016 20:52:03 +0000 (23:52 +0300)
tools/brush_cds.pl

index a8ca386..49e46c3 100644 (file)
@@ -16,9 +16,7 @@ sub brush()
 {\r
        processDir( "../cds" ) ;\r
        processDir( "../src" ) ;\r
-       processDir( "../tests/test-hdr" ) ;\r
-       processDir( "../tests/unit" ) ;\r
-       processDir( "../tests/cppunit" ) ;\r
+       processDir( "../test" ) ;\r
 }\r
 \r
 sub processDir( $ )\r
@@ -45,7 +43,7 @@ sub processFile( $ )
        my $file = shift;\r
 \r
        if ( open( my $fh, $file )) {\r
-               binmode $fh     ;\r
+               #binmode $fh    ;\r
                my $str = '';\r
                while (<$fh>) {\r
             if ( /^\/\/\$\$CDS-header\$\$/ ) {\r
@@ -82,7 +80,7 @@ sub processFile( $ )
             }\r
             else {\r
                 $nTabsFound += $_ =~ s/\t/    /g;\r
-                $_ =~ s/\s+$//  ;\r
+                $_ =~ s/\s+$//;\r
                 $_ =~ s/\s+;$/;/;\r
                 $str .= $_      ;\r
                 $str .= "\n"    ;\r
@@ -91,7 +89,7 @@ sub processFile( $ )
                close $fh;\r
                \r
                if ( open( my $fh, ">$file" )) {\r
-                       binmode $fh;\r
+                       #binmode $fh;\r
                        print $fh $str;\r
                        close $fh;\r
                }\r