6 if (/^diff/ || /^Index/) {
10 (@out) = split(' ', $_);
11 shift(@out) if (/^diff/);
15 $out =~ s:^/*linux[^/]*::;
18 $out = "/var/tmp/patches/$out";
21 print STDERR "$out\n";
22 system("mkdir -p $dir");
23 open(OUT, ">$out") || die("cannot open $out");