How do I add a local patch to a port?

[Simon Barner]

Argh the mailing list software stripped the attachment, so here it is:

#!/usr/bin/perl -w

use strict;

my $origfile;
my $file;
my $patch;
my @files = `find . -name "*.orig"`;

foreach $origfile (@files) {
	chomp ($origfile);
	$origfile =~ s/^\.\///;
	$file = $origfile;
	$file =~ s/\.orig$//;
	$patch = $file;
	$patch =~ s/\//::/g;
	$patch = "patch-" . $patch;
	system ("diff -u $origfile $file > $patch\n");
}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 187 bytes
Desc: not available
Url : http://lists.freebsd.org/pipermail/freebsd-questions/attachments/20040310/0de9c885/attachment.bin