| commit | 6b40711896d28613cebcc484eed4be69e75c23d4 | [log] [tgz] |
|---|---|---|
| author | T Jake Luciani <jake@apache.org> | Mon Mar 02 23:47:20 2009 +0000 |
| committer | T Jake Luciani <jake@apache.org> | Mon Mar 02 23:47:20 2009 +0000 |
| tree | 5acd89f0923ebc429ecfabee2d57bfe85ab039a3 | |
| parent | b5c9c546d817cdb9e316cc1076e3d6becff9ab06 [diff] |
THRIFT-324: replace strlen with length git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@749478 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/perl/lib/Thrift/Socket.pm b/lib/perl/lib/Thrift/Socket.pm index 732f35a..96f544e 100644 --- a/lib/perl/lib/Thrift/Socket.pm +++ b/lib/perl/lib/Thrift/Socket.pm
@@ -241,7 +241,7 @@ my $got = $sock->send($buf); if (!defined $got || $got == 0 ) { - die new Thrift::TException('TSocket: Could not write '.strlen($buf).' bytes '. + die new Thrift::TException('TSocket: Could not write '.length($buf).' bytes '. $self->{host}.':'.$self->{host}); }