#!/usr/bin/perl
# Usage: make-patch 1.7.7

my $version = shift @ARGV;
die "Usage: make-patch <version>\n" unless defined($version);

my $crunched = $version;
$crunched =~ s/\.//g;
my $prcs = $version;
$prcs =~ s/\./_/g;

my $prcsout = `relinfo -r$prcs | tail -1`;
chomp $prcsout;
warn "Patching vs. $prcsout\n";
$prcsout =~ s/\s.*$//;

system "make-patch-header $crunched";
warn "prcsout is: $prcsout\n";
exec "/usr/bin/make", "VS=$prcsout", "diffs";