#! /usr/bin/perl
#
# $Id$
#
# Similiar to the diff(1) command.
# This one automatically ignores any autogenerated files.


use strict;
use warnings;
use File::Basename;	# &dirname
require "".dirname($0)."/My-KernelIgnoreList.pm";

# Do not use the shell here as it tries to expand the argument wildcards.
local *DIFF;
# Prevent: Name ... used only once: possible typo
1 if @My::KernelIgnoreList::list;
open DIFF,"-|","diff","-ru",
				map(("-x",$_),@My::KernelIgnoreList::list),
				@ARGV
		or die "Cannot open the 'diff' output: $!";
while (<DIFF>) {
	next if /^Binary files /;
	next if /^Only in /;
	print;
	}
# It is valid for diff(1) to return its exit code 1.
if (close DIFF && $?!=256) {
	die "Cannot close the 'diff' output (status=$?): $!";
	}