cvs commit: modperl-2.0/util getdiff.pl

[sbekman]

sbekman     01/08/12 19:18:38

  Added:       util     getdiff.pl
  Log:
  patch generator utility
  
  Revision  Changes    Path
  1.1                  modperl-2.0/util/getdiff.pl
  
  Index: getdiff.pl
  ===================================================================
  #!/usr/bin/perl -w
  
  # this script creates a diff against CVS
  # 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 = `cvs diff`;
  
  # strip '? filename' cvs lines for unknown files
  $o =~ s/^\?.*\n//gm;
  
  for (@ARGV) {
      $o .= "\n";
      $o .= `diff -u /dev/null $_`
  }
  
  print $o;