#!/usr/pkg/bin/perl

my %fns;

while (my $fn = <>) {
	chomp $fn;
	next if $fn =~ m/^@/;
	my $lcfn = lc $fn;
	if (defined $fns{$lcfn}) {
		my $otherfn = $fns{$lcfn};
		die "repeated file $fn\n" if $otherfn eq $fn;
		print "clash: $otherfn and $fn\n";
	} else {
		$fns{$lcfn} = $fn;
	}
}