View | Details | Raw Unified | Return to bug 26742
Collapse All | Expand All

(-)a/Koha/BackgroundJob.pm (-8 / +1 lines)
Lines 77-89 sub connect { Link Here
77
        $credentials->{host} = $config->{vhost} if $config->{vhost};
77
        $credentials->{host} = $config->{vhost} if $config->{vhost};
78
    }
78
    }
79
    my $stomp = Net::Stomp->new( { hostname => $hostname, port => $port } );
79
    my $stomp = Net::Stomp->new( { hostname => $hostname, port => $port } );
80
    my $frame = $stomp->connect( $credentials );
80
    $stomp->connect( $credentials );
81
    unless ($frame && $frame->command eq 'CONNECTED'){
82
        if ($frame){
83
            warn $frame->as_string;
84
        }
85
        die "Cannot connect to message broker";
86
    }
87
    return $stomp;
81
    return $stomp;
88
}
82
}
89
83
90
- 

Return to bug 26742