#!/usr/bin/perl -w
#=============================================================================#
#       Create patches from all %.orig/% files from this directory tree       #
#=============================================================================#
# (c) Denis Smirnov                                                           #
#=============================================================================#
use strict;

chdir $ARGV[0] if defined $ARGV[0];

foreach(  split /\x00/, `find -type f -name '*.orig' -print0` )
{
    /(.+)\.orig$/;
    print `diff -ud $_ $1`;
}

