valitydev/thrift
14
0
Fork 0
mirror of https://github.com/valitydev/thrift.git synced 2024-11-07 02:45:22 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

THRIFT-758. perl: incorrect deference in exception handling

Browse Source 
Patch: Yann Kerherve

git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@991784 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Bryan Duxbury 2010-09-02 00:52:46 +00:00
parent 773b8dbf30
commit ee8255d086
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/perl/lib/Thrift.pm
View File

@ -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);
}