summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorJames E. King, III <jking@apache.org>2017-10-20 08:33:38 -0400
committerJames E. King, III <jking@apache.org>2017-10-20 08:33:38 -0400
commit54ce558ba80905d124b82727d196f6d58964b74c (patch)
tree17b434cf7e9fe712226c1ada9a4792a23857fdd0 /compiler
parent44701e82ad351d7472101ad81aa13e775ffb7384 (diff)
downloadthrift-54ce558ba80905d124b82727d196f6d58964b74c.tar.gz
THRIFT-4365: Replaced indirect object syntax in perl compiler
Client: perl Patch: Finn Isaac Norris Colman This closes #1393
Diffstat (limited to 'compiler')
-rw-r--r--compiler/cpp/src/thrift/generate/t_perl_generator.cc4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cpp/src/thrift/generate/t_perl_generator.cc b/compiler/cpp/src/thrift/generate/t_perl_generator.cc
index 0bdbb0578..0c05cda04 100644
--- a/compiler/cpp/src/thrift/generate/t_perl_generator.cc
+++ b/compiler/cpp/src/thrift/generate/t_perl_generator.cc
@@ -1259,8 +1259,8 @@ void t_perl_generator::generate_deserialize_field(ofstream& out,
void t_perl_generator::generate_deserialize_struct(ofstream& out,
t_struct* tstruct,
string prefix) {
- out << indent() << "$" << prefix << " = new " << perl_namespace(tstruct->get_program())
- << tstruct->get_name() << "();" << endl << indent() << "$xfer += $" << prefix
+ out << indent() << "$" << prefix << " = " << perl_namespace(tstruct->get_program())
+ << tstruct->get_name() << "->new();" << endl << indent() << "$xfer += $" << prefix
<< "->read($input);" << endl;
}