diff options
author | Bryan Duxbury <bryanduxbury@apache.org> | 2010-09-02 00:52:46 +0000 |
---|---|---|
committer | Bryan Duxbury <bryanduxbury@apache.org> | 2010-09-02 00:52:46 +0000 |
commit | ee8255d0867da74510574afe634c692603c7d7aa (patch) | |
tree | 328def782c383cdc413fad39c789f84e107a6d4e /lib/perl | |
parent | 773b8dbf301442372d4f7b3a84ee150e034047e6 (diff) | |
download | thrift-ee8255d0867da74510574afe634c692603c7d7aa.tar.gz |
THRIFT-758. perl: incorrect deference in exception handling
Patch: Yann Kerherve
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@991784 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'lib/perl')
-rw-r--r-- | lib/perl/lib/Thrift.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/perl/lib/Thrift.pm b/lib/perl/lib/Thrift.pm index fe0f8e726..3b7c57f8f 100644 --- a/lib/perl/lib/Thrift.pm +++ b/lib/perl/lib/Thrift.pm @@ -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); } |