1 files changed, 26 insertions, 0 deletions
diff --git a/contrib/index-prop b/contrib/index-prop
new file mode 100755
index 000000000..1ea648989
--- /dev/null
+++ b/contrib/index-prop
@@ -0,0 +1,26 @@
+#! /usr/bin/perl -wi
+# Fix up the output of cvs diff -c so that it works with patch.
+# We do this by propagating the full pathname from the Index: line
+# into the diff itself.
+#
+# Thrown together by Jason Merrill <jason@cygnus.com>
+
+while (<>)
+{
+  if (/^Index: (.*)/) 
+    {
+      $full = $1;
+      print;
+      for (1..7)
+	{
+	  $_ = <>;
+	  s/^([-+*]{3}) [^\t]+\t/$1 $full\t/
+	    unless m{ /dev/null\t};
+	  print;
+	}
+    }
+  else
+    {
+      print;
+    }
+}