diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-04 23:04:28 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-04 23:04:28 +0200 |
| commit | 5de2ec0def3e4ad0ead20b426e81509fd8e48c6d (patch) | |
| tree | cfb8ef98f11663482c39929e46c8374933b925d5 /lib/subunit/perl | |
| parent | ed4253504167748c0bb829176d41c09365937189 (diff) | |
| download | samba-5de2ec0def3e4ad0ead20b426e81509fd8e48c6d.tar.gz samba-5de2ec0def3e4ad0ead20b426e81509fd8e48c6d.tar.bz2 samba-5de2ec0def3e4ad0ead20b426e81509fd8e48c6d.zip | |
subunit: Import latest upstream.
Diffstat (limited to 'lib/subunit/perl')
| -rw-r--r-- | lib/subunit/perl/lib/Subunit.pm | 21 |
1 files changed, 21 insertions, 0 deletions
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; |