Sorry for the delay in responding.
amanda@marlin:~/daily$ cat -n
/usr/local/share/perl/5.22.1/Amanda/Taper/Scan/oldest.pm | grep "^
*102" -C3
99 $sl->{'state'} == Amanda::Changer::SLOT_UNKNOWN) {
100 push @unknown, $sl;
101 } elsif ($sl->{'state'} == Amanda::Changer::SLOT_EMPTY) {
102 } elsif (defined $sl->{'label'} &&
103 $sl->{device_status} == $DEVICE_STATUS_SUCCESS) {
104 my $vol_tle =
$self->{'tapelist'}->lookup_tapelabel($sl->{'label'});
105 if ($self->is_reusable_volume(label => $sl->{'label'})) {
amanda@marlin:~/daily$
On 10/10/20 12:46 AM, Nathan Stratton Treadway wrote:
On Sat, Oct 10, 2020 at 00:29:04 -0400, Nathan Stratton Treadway wrote:
Can you post the output of
$ sed -n '99,$p;105q'
/usr/local/share/perl/5.22.1/Amanda/Taper/Scan/oldest.pm
?
(In other words, what's line 102 in that file on your system, with a
few lines of context?)
(Hmm, perhaps
$ cat -n /usr/local/share/perl/5.22.1/Amanda/Taper/Scan/oldest.pm | grep "^
*102" -C3
would be better -- that way, the file line numbers are included in
output...)
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
--
---------------
Chris Hoogendyk
-
O__ ---- Systems Administrator, Retired
c/ /'_ --- Biology & Geosciences Departments
(*) \(*) -- 315 Morrill Science Center III
~~~~~~~~~~ - University of Massachusetts, Amherst
<[email protected]>
---------------
Erdös 4
