#! /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;
	}
close DIFF or die "Cannot close the 'diff' output: $!";