From: T Jake Luciani <jake@apache.org>
Date: Tue, 21 Apr 2009 00:50:11 +0000 (+0000)
Subject: THRIFT-460: fixes constant structs
X-Git-Tag: 0.2.0~133
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=fae0e781582c827a12ba3ee5b83afe7a9a291cf3;p=common%2Fthrift.git

THRIFT-460: fixes constant structs

git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@766933 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/compiler/cpp/src/generate/t_perl_generator.cc b/compiler/cpp/src/generate/t_perl_generator.cc
index ca3210aa..ae204fd9 100644
--- a/compiler/cpp/src/generate/t_perl_generator.cc
+++ b/compiler/cpp/src/generate/t_perl_generator.cc
@@ -386,6 +386,7 @@ string t_perl_generator::render_const_value(t_type* type, t_const_value* value)
       out << render_const_value(g_type_string, v_iter->first);
       out << " => ";
       out << render_const_value(field_type, v_iter->second);
+      out << ",";
       out << endl;
     }