1 files changed, 23 insertions, 0 deletions
diff --git a/qpdf/qtest/qpdf/filter-progress.pl b/qpdf/qtest/qpdf/filter-progress.pl
new file mode 100644
index 00000000..97453fcb
--- /dev/null
+++ b/qpdf/qtest/qpdf/filter-progress.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+
+my $seen = 0;
+while (<>)
+{
+    if (m/write progress: (?:10)?0\%/)
+    {
+        print;
+    }
+    elsif (m/write progress: /)
+    {
+        if (! $seen)
+        {
+            $seen = 1;
+            print "....other write progress....\n";
+        }
+    }
+    else
+    {
+        print;
+    }
+}