1#!/usr/bin/perl
2use strict;
3use FindBin qw($Bin);
4chdir "$Bin/.." or die;
5
6my @exempted = qw(Makefile.am ChangeLog doc/Makefile.am README README.md);
7push(@exempted, glob("doc/*.xml"));
8push(@exempted, glob("doc/*.full"));
9push(@exempted, glob("doc/xml2rfc/*.xsl"));
10push(@exempted, glob("m4/*backport*m4"));
11my %exempted_hash = map { $_ => 1 } @exempted;
12
13my @stuff = split /\0/, `git ls-files -z -c -m -o --exclude-standard`;
14my @files = grep { ! $exempted_hash{$_} } @stuff;
15
16unless (@files) {
17    warn "ERROR: You don't seem to be running this from a git checkout\n";
18    exit;
19}
20
21foreach my $f (@files) {
22    open(my $fh, $f) or die;
23    my $before = do { local $/; <$fh>; };
24    close ($fh);
25    my $after = $before;
26    $after =~ s/\t/    /g;
27    $after =~ s/ +$//mg;
28    $after .= "\n" unless $after =~ /\n$/;
29    next if $after eq $before;
30    open(my $fh, ">$f") or die;
31    print $fh $after;
32    close($fh);
33}
34