* perl/Amanda/Taper/Scribe.pm: Keep an $self->{'oldsize'}.
* perl/Amanda/Taper/Scribe.pm (get_bytes_written): Return
  $self->{'oldsize'} if the xfer is done.
* perl/Amanda/Taper/Worker.pm: Truncate the status
  file after writting to it.


git-svn-id: https://svn.code.sf.net/p/amanda/code/amanda/trunk@6021 a8d146d6-cc15-0410-8900-af154a0219e0