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"); }
pgp00000.pgp
Description: PGP signature