swap-pseudomerges: test program

diff --git a/swap-pseudomerges b/swap-pseudomerges
new file mode 100755 (executable)
index 0000000..a40e60a
--- /dev/null
+++ b/swap-pseudomerges
@@ -0,0 +1,20 @@
+#!/bin/sh
+#
+# runs
+#   git-filter-branch --some-filters "$@"
+
+set -e
+
+git-filter-branch --parent-filter '
+       case "$(git cat-file commit $GIT_COMMIT)" in
+       *"git-debrebase pseudomerge"*)
+               perl -ne '\''
+                       chomp;
+                       print join " ", reverse split / +(?=-p )/;
+                       print "\n";
+               '\''
+               ;;
+       *)
+               cat
+       esac
+' "$@"