Author: bryanduxbury
Date: Thu Sep 2 00:52:46 2010
New Revision: 991784
URL: http://svn.apache.org/viewvc?rev=991784&view=rev
Log:
THRIFT-758. perl: incorrect deference in exception handling
Patch: Yann Kerherve
Modified:
incubator/thrift/trunk/lib/perl/lib/Thrift.pm
Modified: incubator/thrift/trunk/lib/perl/lib/Thrift.pm
URL:
http://svn.apache.org/viewvc/incubator/thrift/trunk/lib/perl/lib/Thrift.pm?rev=991784&r1=991783&r2=991784&view=diff
==============================================================================
--- incubator/thrift/trunk/lib/perl/lib/Thrift.pm (original)
+++ incubator/thrift/trunk/lib/perl/lib/Thrift.pm Thu Sep 2 00:52:46 2010
@@ -93,11 +93,11 @@ sub read {
my $ftype = 0;
my $fid = 0;
- $xfer += $input->readStructBegin($fname);
+ $xfer += $input->readStructBegin(\$fname);
while (1)
{
- $xfer += $input->readFieldBegin($fname, $ftype, $fid);
+ $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid);
if ($ftype == TType::STOP) {
last; next;
}
@@ -107,7 +107,7 @@ sub read {
/1/ && do{
if ($ftype == TType::STRING) {
- $xfer += $input->readString($self->{message});
+ $xfer += $input->readString(\$self->{message});
} else {
$xfer += $input->skip($ftype);
}
@@ -117,7 +117,7 @@ sub read {
/2/ && do{
if ($ftype == TType::I32) {
- $xfer += $input->readI32($self->{code});
+ $xfer += $input->readI32(\$self->{code});
} else {
$xfer += $input->skip($ftype);
}
