#!/usr/unsupported/bin/perl
$srcdir = shift;
$nukedir = shift;

$sub = ""; @subdirs=();
do {
    opendir(SDIR,"$srcdir/$sub") || die "$srcdir/$sub: $?";
    @sfiles=grep(!/^\.\.?$/,readdir(SDIR));
    closedir(SDIR);

    opendir(NDIR,"$nukedir/$sub") || die "$nukedir/$sub: $?";
    @nfiles=grep(!/^\.\.?$/,readdir(NDIR));
    closedir(NDIR);

    for $target (@nfiles) {
	if ( -d "$nukedir/$sub/$target") {
	    push(@subdirs,"$sub/$target");
	    next;
	}
	if (grep($_ eq $target, @sfiles) > 0) {
	    $status = &cmp("$nukedir/$sub/$target", "$srcdir/$sub/$target");
	    print "$sub/$target $status\n" if $status;
##	    (print "unlink($nukedir/$sub/$target)\n" || die) unless $status;
	    (unlink("$nukedir/$sub/$target") || die) unless $status;
	}
    }

} while(defined($sub = shift(@subdirs)));

sub cmp {
    local($f1,$f2)=@_;
    local($st);
    $st = system("cmp -s $f1 $f2");
    die if($st < 256 && $st > 0);
    $st >> 8;
}