1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Cwd;
7
8if (@ARGV > 0) {
9	my $dest;
10	my $dir = cwd;
11	$dest = $ARGV[0];
12	if ($dest !~ /$dir/) {
13		$dest = $dir . '/' .$dest;
14	}
15	$dest =~ s|/usr/src|/usr/freebsd|g ;
16	print "$dest\n";
17
18	system("diff $ARGV[0] $dest");
19} else {
20	print STDERR "missing file";
21	exit(1);
22}
23