misc/archive/split-patch.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # --- T2-COPYRIGHT-NOTE-BEGIN ---
   4 # This copyright note is auto-generated by ./scripts/Create-CopyPatch.
   5 #
   6 # T2 SDE: misc/archive/split-patch.pl
   7 # Copyright (C) 2004 - 2005 The T2 SDE Project
   8 # Copyright (C) 1998 - 2003 ROCK Linux Project
   9 #
  10 # More information can be found in the files COPYING and README.
  11 #
  12 # This program is free software; you can redistribute it and/or modify
  13 # it under the terms of the GNU General Public License as published by
  14 # the Free Software Foundation; version 2 of the License. A copy of the
  15 # GNU General Public License can be found in the file COPYING.
  16 # --- T2-COPYRIGHT-NOTE-END ---
  17
  18 use strict;
  19 use English;
  20
  21 open(F,">/dev/null") || die $!;
  22
  23 while (<>) {
  24         next if /^diff /;
  25         if (/^--- (\S+)\s/) {
  26                 my $fn=$1; $fn=~s,/,:,g;
  27                 $fn=~s,^[^:]+:,,; $fn.=".patch";
  28                 print "Writing $fn ...\n";
  29                 close(F); open(F,">$fn") || die $!;
  30         }
  31         print F;
  32 }
  33
  34 close(F);