subunit: Import latest upstream.

[nivanova/samba-autobuild/.git] / lib / subunit / perl / lib / Subunit.pm

diff --git a/lib/subunit/perl/lib/Subunit.pm b/lib/subunit/perl/lib/Subunit.pm
index 05206748e2daf1c2a58a18e81e1a09bb441d7b96..dac4a2601df48683c552458be8fc828c807ef125 100644 (file)
--- 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;