diff options
author | Martin Quinson <mquinson@debian.org> | 2003-01-30 17:11:00 +0000 |
---|---|---|
committer | Martin Quinson <mquinson@debian.org> | 2003-01-30 17:11:00 +0000 |
commit | a62fb9b3aa2cee7c5a5b5c3e14372faba01f383d (patch) | |
tree | f5759b9dd40f7813d3bd05bde37a87d279feccbf /needs-checking/split-patch | |
parent | baaf1091d9321bf4b8ed0f3e73cf4b47ca05463c (diff) | |
download | quilt-a62fb9b3aa2cee7c5a5b5c3e14372faba01f383d.tar.gz |
Remove useless oldies. Missing functionnalities needs to be reimplemented almost from the scratch due to the bunch of changes to the core since those scripts were written.
Diffstat (limited to 'needs-checking/split-patch')
-rwxr-xr-x | needs-checking/split-patch | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/needs-checking/split-patch b/needs-checking/split-patch deleted file mode 100755 index 08ce431..0000000 --- a/needs-checking/split-patch +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -w -$out = ""; -while (<>) { - next if (/^Only/); - next if (/^Binary/); - if (/^diff/ || /^Index/) { - if ($out) { - close OUT; - } - (@out) = split(' ', $_); - shift(@out) if (/^diff/); - $out = pop(@out); - $out =~ s:/*usr/:/:; - $out =~ s:/*src/:/:; - $out =~ s:^/*linux[^/]*::; - $out =~ s:\(w\)::; - next if ($out eq ""); - $out = "/var/tmp/patches/$out"; - $dir = $out; - $dir =~ s:/[^/]*$::; - print STDERR "$out\n"; - system("mkdir -p $dir"); - open(OUT, ">$out") || die("cannot open $out"); - } - if ($out) { - print OUT $_; - } -} - |