sub sip2_message {
my $send = shift;
+ my $retry = 0;
+
send_again:
my $sock = sip2_socket || die "no sip2 socket";
$send .= "\r" unless $send =~ m/\r$/;
$send .= "\n" unless $send =~ m/\n$/;
-
- my $retry = 0;
warn "SIP2 >>>> ",dump($send), "\n";
print $sock $send;
$sock->flush;