1 files changed, 12 insertions, 0 deletions
diff --git a/undo b/undo
new file mode 100755
index 0000000000..541aef4a44
--- /dev/null
+++ b/undo
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -00
+
+$* = 1;
+while (<>) {
+    if (/^do_(\w+)/) {
+	open(OUT, ">>do/$1");
+    }
+    print OUT;
+    chop;
+    chop;
+    close OUT if chop eq '}' && chop eq "\n";
+}