#!/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`;
}
