You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2014/07/23 15:24:27 UTC
[9/9] git commit: refs/heads/master - Replace dicey POD with comments.
Replace dicey POD with comments.
The pod-checker test didn't like the existing source, so use ordinary line
comments to disable code instead.
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/b6ccb300
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/b6ccb300
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/b6ccb300
Branch: refs/heads/master
Commit: b6ccb300b071e73181e7d07f792e1c5a63e9ddd7
Parents: 8b9f18e
Author: Marvin Humphrey <ma...@rectangular.com>
Authored: Wed Jul 23 03:28:12 2014 +0000
Committer: Marvin Humphrey <ma...@rectangular.com>
Committed: Wed Jul 23 03:28:12 2014 +0000
----------------------------------------------------------------------
perl/lib/LucyX/Remote/SearchClient.pm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/b6ccb300/perl/lib/LucyX/Remote/SearchClient.pm
----------------------------------------------------------------------
diff --git a/perl/lib/LucyX/Remote/SearchClient.pm b/perl/lib/LucyX/Remote/SearchClient.pm
index c71fbc7..5f79df0 100644
--- a/perl/lib/LucyX/Remote/SearchClient.pm
+++ b/perl/lib/LucyX/Remote/SearchClient.pm
@@ -73,11 +73,9 @@ sub _rpc {
my $packed_len = pack( 'N', length($serialized) );
print $sock "$packed_len$serialized" or confess $!;
-=begin disabled
- my $check_val = $sock->syswrite("$packed_len$serialized");
- confess $! if $check_val != length($serialized) + 4;
-
-=cut
+ # disabled
+ #my $check_val = $sock->syswrite("$packed_len$serialized");
+ #confess $! if $check_val != length($serialized) + 4;
my $check_val;