summaryrefslogtreecommitdiffstats
path: root/needs-checking/split-patch
diff options
context:
space:
mode:
authorMartin Quinson <mquinson@debian.org>2003-01-30 17:11:00 +0000
committerMartin Quinson <mquinson@debian.org>2003-01-30 17:11:00 +0000
commita62fb9b3aa2cee7c5a5b5c3e14372faba01f383d (patch)
treef5759b9dd40f7813d3bd05bde37a87d279feccbf /needs-checking/split-patch
parentbaaf1091d9321bf4b8ed0f3e73cf4b47ca05463c (diff)
downloadquilt-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-xneeds-checking/split-patch29
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 $_;
- }
-}
-