1 files changed, 21 insertions, 0 deletions
diff --git a/imap/testsuitefix.pl.in b/imap/testsuitefix.pl.in
new file mode 100644
index 0000000..ee22d8c
--- /dev/null
+++ b/imap/testsuitefix.pl.in
@@ -0,0 +1,21 @@
+#! @PERL@
+#
+# Copyright 2000-2001 Double Precision, Inc.  See COPYING for
+# distribution information.
+#
+# Ok, the output of LIST is given in filesystem order, so fix that by
+# prefixing a line number count, which doesn't incremenet for a LIST,
+# and have the output of this script sorted.
+#
+
+$n=0;
+
+while (<>)
+{
+    s/\[COPYUID.*\] //;
+    s/\[APPENDUID.*\] //;
+    s/^\* ADD \"UID=.*/* ADD UID/;
+    s/^\* COPY \d+ \"NEWUID=.*/* COPY NEWUID/;
+    printf("%06d %s", $n, $_);
+    ++$n unless $_ =~ /^\* (LIST|LSUB)/;
+}