Permalink
Browse files

Always read the result line.

git-svn-id: http://code.sixapart.com/svn/ddlockd/trunk@46 75bc8fc0-0210-0410-8e5e-a32055405bc5
  • Loading branch information...
1 parent 648fb6c commit dcdcf400ca8c0daa1e7f051bd4da89b3d855459b athomason committed Mar 16, 2009
Showing with 2 additions and 1 deletion.
  1. +2 −1 api/perl/DDLockClient.pm
View
@@ -93,7 +93,8 @@ sub getlocks {
my $sock = $self->{client}->get_sock($addr)
or next;
$sock->printf("releaselock lock=%s%s", eurl($self->{name}), CRLF);
- warn scalar(<$sock>) if DEBUG;
+ my $result = <$sock>;
+ warn $result if DEBUG;
}
die $msg;
};

0 comments on commit dcdcf40

Please sign in to comment.