[memcached] bradfitz, r327: whitespace cleaner

[commits at code.sixapart.com]

whitespace cleaner



A   trunk/server/devtools/clean-whitespace.pl


Added: trunk/server/devtools/clean-whitespace.pl
===================================================================
--- trunk/server/devtools/clean-whitespace.pl	2006-09-04 01:13:21 UTC (rev 326)
+++ trunk/server/devtools/clean-whitespace.pl	2006-09-04 02:18:42 UTC (rev 327)
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use FindBin qw($Bin);
+chdir "$Bin/.." or die;
+my @files = (glob("*.h"), glob("*.c"));
+foreach my $f (@files) {
+    open(my $fh, $f) or die;
+    my $before = do { local $/; <$fh>; };
+    close ($fh);
+    my $after = $before;
+    $after =~ s/\t/    /g;
+    $after =~ s/\s+$//m;
+    next if $after eq $before;
+    open(my $fh, ">$f") or die;
+    print $fh $after;
+    close($fh);
+}


Property changes on: trunk/server/devtools/clean-whitespace.pl
___________________________________________________________________
Name: svn:executable
   + *