THRIFT-4365: Replaced indirect object syntax in perl compiler
Client: perl
Patch: Finn Isaac Norris Colman
This closes #1393
diff --git a/compiler/cpp/src/thrift/generate/t_perl_generator.cc b/compiler/cpp/src/thrift/generate/t_perl_generator.cc
index 0bdbb05..0c05cda 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_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;
}