On Thu, Mar 16, 2017 at 11:46:50 -0400, Jean-Louis Martineau wrote:
> Thanks for reporting the issue.
> I committed the attached patch.
[...]
> diff --git a/perl/Amanda/Tapelist.swg b/perl/Amanda/Tapelist.swg
> index 99f1164..e846eb0 100644
> --- a/perl/Amanda/Tapelist.swg
> +++ b/perl/Amanda/Tapelist.swg
> @@ -309,7 +309,12 @@ sub _read_tapelist {
> $self->{'tle_hash_label'} = undef;
> $self->{'tle_hash_barcode'} = undef;
> my $linenum = 0;
> - open(my $fh, "<", $self->{'filename'}) or return undef;
> + my $fh;
> + if (!open($fh, "<", $self->{'filename'})) {
> + $self->{'tles'} = [];
> + return undef;
> + }
> +
> while (my $line = <$fh>) {
> $linenum++;
> my ($datestamp, $label, $reuse, $barcode, $meta, $blocksize, $pool,
> $storage, $config, $comment)
I manually applied this patch to the system Tapelist.pm file, and can
confirm a newly-created tapelist file is populated correctly:
====
# rm tapelist
# su backup -c "amlabel TestBackup TESTBACKUP-01 slot 1"
Reading label...
Found an empty tape.
Writing label 'TESTBACKUP-01'...
Checking label...
Success!
# cat tapelist
0 TESTBACKUP-01 reuse BLOCKSIZE:32 POOL:TestBackup STORAGE:TestBackup
CONFIG:TestBackup
====
Thanks!
Nathan
----------------------------------------------------------------------------
Nathan Stratton Treadway - [email protected] - Mid-Atlantic region
Ray Ontko & Co. - Software consulting services - http://www.ontko.com/
GPG Key: http://www.ontko.com/~nathanst/gpg_key.txt ID: 1023D/ECFB6239
Key fingerprint = 6AD8 485E 20B9 5C71 231C 0C32 15F3 ADCD ECFB 6239
