* perl/Amanda/Taper/Scribe.pm: Fix perl warning.
* perl/Amanda/Taper/Worker.pm (TAKE_SCRIBE_FROM): Set
  scribe1->{'cancelled'} to 0.


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