You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@thrift.apache.org by ja...@apache.org on 2009/03/03 00:47:20 UTC

svn commit: r749478 - /incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm

Author: jake
Date: Mon Mar  2 23:47:20 2009
New Revision: 749478

URL: http://svn.apache.org/viewvc?rev=749478&view=rev
Log:
THRIFT-324: replace strlen with length

Modified:
    incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm

Modified: incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm
URL: http://svn.apache.org/viewvc/incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm?rev=749478&r1=749477&r2=749478&view=diff
==============================================================================
--- incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm (original)
+++ incubator/thrift/trunk/lib/perl/lib/Thrift/Socket.pm Mon Mar  2 23:47:20 2009
@@ -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});
         }