shadowm@nanacore:~/src/wesnoth$ perl -w -- - `find . -name .gitignore` > gitignore-sources <<'EOF'
%pats = ();

foreach $f (@ARGV) {
        $f =~ s{^\./}{};
        open $fh, '<', $f or die;
        while(<$fh>) {
                chomp;
                defined $pats{$_} or $pats{$_} = [];
                push @{$pats{$_}}, $f;
        }
        close $fh;
}

foreach $pat (keys %pats) {
        print $pat."\n\t".join(' ', @{$pats{$pat}})."\n\n";
}
EOF