Perl pass by reference versioning fix
Summary: I hate Perl the most. Submitted by Jake Luciani.
Reviewed By: mcslee
Test Plan: We don't even use the Perl bindings for Thrift, but we could use Jake's test scripts on this.
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665207 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/perl/lib/Thrift/BinaryProtocol.pm b/lib/perl/lib/Thrift/BinaryProtocol.pm
index c31e1d7..b9bb88d 100644
--- a/lib/perl/lib/Thrift/BinaryProtocol.pm
+++ b/lib/perl/lib/Thrift/BinaryProtocol.pm
@@ -228,7 +228,7 @@
my ($name, $type, $seqid) = @_;
my $version = 0;
- my $result = $self->readI32($version);
+ my $result = $self->readI32(\$version);
if ($version & VERSION_MASK != VERSION_1) {
die new Thrift::TException('Missing version identifier')
}