From be3a14bbbb8b161df688059270fe67cf498cfa14 Mon Sep 17 00:00:00 2001
From: Jason Merrill <jason@yorick.cygnus.com>
Date: Thu, 28 May 1998 01:36:06 +0000
Subject: * index-prop: New file.

From-SVN: r20112
---
 contrib/ChangeLog  |  4 ++++
 contrib/index-prop | 25 +++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100755 contrib/index-prop

(limited to 'contrib')

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 438acca..6578a4d 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+1998-05-28  Jason Merrill  <jason@yorick.cygnus.com>
+
+	* index-prop: New file.
+
 Sat May 23 23:38:49 1998  Matthias Klose  <doko@cs.tu-berlin.de>
 
 	* test_summary: find good awk (copied from warn_summary).
diff --git a/contrib/index-prop b/contrib/index-prop
new file mode 100755
index 0000000..a169b57
--- /dev/null
+++ b/contrib/index-prop
@@ -0,0 +1,25 @@
+#! /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/ [^\t]+\t/ $full\t/;
+	  print;
+	}
+    }
+  else
+    {
+      print;
+    }
+}
-- 
cgit v1.1