From 5de2ec0def3e4ad0ead20b426e81509fd8e48c6d Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sat, 4 Sep 2010 23:04:28 +0200
Subject: subunit: Import latest upstream.

---
 lib/subunit/perl/lib/Subunit.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'lib/subunit/perl')

diff --git a/lib/subunit/perl/lib/Subunit.pm b/lib/subunit/perl/lib/Subunit.pm
index 05206748e2..dac4a2601d 100644
--- a/lib/subunit/perl/lib/Subunit.pm
+++ b/lib/subunit/perl/lib/Subunit.pm
@@ -159,4 +159,25 @@ sub report_time($)
 	printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec;
 }
 
+sub progress_pop()
+{
+	print "progress: pop\n";
+}
+
+sub progress_push()
+{
+	print "progress: push\n";
+}
+
+sub progress($;$)
+{
+	my ($count, $whence) = @_;
+
+	unless(defined($whence)) {
+		$whence = "";
+	}
+
+	print "progress: $whence$count\n";
+}
+
 1;
-- 
cgit