Version 0.11, from Andreas Gruenbacher

1 files changed, 29 insertions, 0 deletions

diff --git a/needs-checking/split-patch b/needs-checking/split-patch
new file mode 100755
index 0000000..08ce431
--- /dev/null
+++ b/needs-checking/split-patch
@@ -0,0 +1,29 @@
+#!/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 $_;
+	}
+}
+