X-Git-Url: http://rtime.felk.cvut.cz/gitweb/socketcan-devel.git/blobdiff_plain/69d23faa38a79785de3a158be445b8c7841884aa..dd9a4336edfb3c48675b185deefe0e449abfede6:/mkpatch

diff --git a/mkpatch b/mkpatch
index a6fbc70..c75cc85 100755
--- a/mkpatch
+++ b/mkpatch
@@ -5,10 +5,14 @@
 # Generate a kernel patch to add socketcan to a kernel src tree.
 # The list of files to be added is read from stdin.
 
+use POSIX qw(strftime);
+
 $version = shift;
 
 if (-r "patches/$version.diff") {
     copy_file("patches/$version.diff");
+} else {
+    die "Patch patches/$version.diff not found";
 }
 
 while (<>) {
@@ -26,8 +30,6 @@ while (<>) {
     add_file($file, $name);
 }
 
-close FILES;
-
 sub copy_file {
     my ($file) = @_;
 
@@ -40,13 +42,13 @@ 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;
-    use POSIX qw(strftime);
-    $mtime = (stat($file))[9];
     $ts = strftime "%F %T", gmtime((stat($file))[9]);
 
     print "--- a/$name 1970-01-01 00:00:00\n";
@@ -55,5 +57,4 @@ sub add_file {
     for (@lines) {
 	print "+$_";
     }
-    close file;
 }