projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
07407d8
)
correct retry scope
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 20 Mar 2015 15:06:44 +0000
(16:06 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 20 Mar 2015 15:06:44 +0000
(16:06 +0100)
scripts/RFID-JSONP-server.pl
patch
|
blob
|
history
diff --git
a/scripts/RFID-JSONP-server.pl
b/scripts/RFID-JSONP-server.pl
index
46abca9
..
215d6ca
100755
(executable)
--- a/
scripts/RFID-JSONP-server.pl
+++ b/
scripts/RFID-JSONP-server.pl
@@
-98,6
+98,8
@@
sub sip2_socket {
sub sip2_message {
my $send = shift;
+ my $retry = 0;
+
send_again:
my $sock = sip2_socket || die "no sip2 socket";
@@
-106,8
+108,6
@@
send_again:
$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;