X-Git-Url: http://rtime.felk.cvut.cz/gitweb/socketcan-devel.git/blobdiff_plain/7a671405adeaa91a2ddfc25a8c13c1730a0b1cbd..7242dfaaacd11619e0ab730d9e9601112e97c05a:/mkpatch

diff --git a/mkpatch b/mkpatch
index 476db37..c75cc85 100755
--- a/mkpatch
+++ b/mkpatch
@@ -42,45 +42,19 @@ sub copy_file {
 
 sub add_file {
     my ($file, $name) = @_;
-    my (@lines, $count, $ts, $mtime);
+    my (@lines, $count, $ts);
 
-    open file, "./kv $version $file |" || die "open $file\n";
+    open file, "./strip-src -i -m -v $version $file |" || die "open $file\n";
     @lines = <file>;
+    close file;
+
     $count = $#lines + 1;
-    $mtime = (stat($file))[9];
     $ts = strftime "%F %T", gmtime((stat($file))[9]);
 
-    for $i (0..$#lines) {
-
-	if ($lines[$i] =~ /include.*linux(\/can)?\/version\.h/) {
-	    undef($lines[$i]);
-	    $count--;
-	}
-
-	if ($lines[$i] =~ /RCSID/) {
-	    undef($lines[$i]);
-	    $count--;
-	    while ($lines[++$i] eq "\n") {
-		undef($lines[$i]);
-		$count--;
-	    }
-	}
-
-	if ($lines[$i] =~ /\$Id.*\$/) {
-	    undef($lines[$i]);
-	    $count--;
-	    while ($lines[++$i] eq " *\n") {
-		undef($lines[$i]);
-		$count--;
-	    }
-	}
-    }
-
     print "--- a/$name 1970-01-01 00:00:00\n";
     print "+++ b/$name $ts\n";
     print "@@ -0,0 +1,$count @@\n";
     for (@lines) {
-	print "+$_" if (defined($_));
+	print "+$_";
     }
-    close file;
 }