From: T Jake Luciani <jake@apache.org>
Date: Mon, 2 Mar 2009 23:47:20 +0000 (+0000)
Subject: THRIFT-324: replace strlen with length
X-Git-Tag: 0.2.0~283
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=6b40711896d28613cebcc484eed4be69e75c23d4;p=common%2Fthrift.git

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 732f35a8..96f544ef 100644
--- a/lib/perl/lib/Thrift/Socket.pm
+++ b/lib/perl/lib/Thrift/Socket.pm
@@ -241,7 +241,7 @@ sub write
         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});
         }