Amzfs_sendrecv: Use of uninitialized value $status at Script_App.pm

[Leon Meßner]

Hi,
i'm seeing the following errors in syslog using amanda-3.3.1:

/var/log/messages:
May 28 02:52:07 silo Amzfs_sendrecv[61918]: Use of uninitialized value $status 
in numeric ne (!=) at 
/usr/local/lib/perl5/site_perl/5.14.2/Amanda/Script_App.pm line 103.
May 28 02:52:07 silo Amzfs_sendrecv[61918]: Use of uninitialized value $status 
in numeric eq (==) at 
/usr/local/lib/perl5/site_perl/5.14.2/Amanda/Script_App.pm line 107.

The mentioned code reads:

    100 sub print_to_server {
    101     my $self = shift;
    102     my($msg, $status) = @_;
    103     if ($status != 0) {
    104         $self->{error_status} = $status;
    105     }
    106     if ($self->{action} eq "check") {
    107         if ($status == $Amanda::Script_App::GOOD) {
    108             print STDOUT "OK $msg\n";

There is a wrapper for this function which is often used in
Amanda/Application/Zfs.pm:

    135 #$_[0] message
    136 #$_[1] status: GOOD or ERROR
    137 sub print_to_server_and_die {
    138     my $self = shift;
    139
    140     $self->print_to_server( @_ );
    141     if (!defined $self->{die} && 
$self->can("check_for_backup_failure")) {
    142         $self->{die} = 1;
    143         $self->check_for_backup_failure();
    144     }
    145     exit 1;
    146 }

I couldn't figure where this is beeing called in the wrong way though.

cheers,
Leon