| #!/usr/bin/perl -w | |
| # this script creates a diff against SVN | |
| # and against /dev/null for all files in ARGV | |
| # and prints it to STDOUT | |
| # | |
| # e.g. | |
| # getdiff.pl t/modules/newtest t/response/TestModules/NewTest.pm \ | |
| # > newtest.patch | |
| # | |
| # the generated patch can be applied with | |
| # patch -p0 < newtest.patch | |
| # cvs diff | |
| my $o = `svn diff`; | |
| for (@ARGV) { | |
| $o .= "\n"; | |
| $o .= `diff -u /dev/null $_` | |
| } | |
| print $o; | |