From 8901688890b73cbfb49467c607dc4275a08e4fbd Mon Sep 17 00:00:00 2001 From: khizmax Date: Wed, 7 Sep 2016 23:52:03 +0300 Subject: [PATCH] Fixed cleaning script --- tools/brush_cds.pl | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/tools/brush_cds.pl b/tools/brush_cds.pl index a8ca3862..49e46c38 100644 --- a/tools/brush_cds.pl +++ b/tools/brush_cds.pl @@ -16,9 +16,7 @@ sub brush() { processDir( "../cds" ) ; processDir( "../src" ) ; - processDir( "../tests/test-hdr" ) ; - processDir( "../tests/unit" ) ; - processDir( "../tests/cppunit" ) ; + processDir( "../test" ) ; } sub processDir( $ ) @@ -45,7 +43,7 @@ sub processFile( $ ) my $file = shift; if ( open( my $fh, $file )) { - binmode $fh ; + #binmode $fh ; my $str = ''; while (<$fh>) { if ( /^\/\/\$\$CDS-header\$\$/ ) { @@ -82,7 +80,7 @@ sub processFile( $ ) } else { $nTabsFound += $_ =~ s/\t/ /g; - $_ =~ s/\s+$// ; + $_ =~ s/\s+$//; $_ =~ s/\s+;$/;/; $str .= $_ ; $str .= "\n" ; @@ -91,7 +89,7 @@ sub processFile( $ ) close $fh; if ( open( my $fh, ">$file" )) { - binmode $fh; + #binmode $fh; print $fh $str; close $fh; } -- 2.34.1