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 <[email protected]> Authored: Wed Jul 23 03:28:12 2014 +0000 Committer: Marvin Humphrey <[email protected]> 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;
