From: David Reiss <dreiss@apache.org>
Date: Tue, 25 Mar 2008 18:38:56 +0000 (+0000)
Subject: Fix some small bugs in the Perl generator.
X-Git-Tag: 0.2.0~890
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=0c703cc2f8dd85016a2d7f19b31b09aee42361e0;p=common%2Fthrift.git

Fix some small bugs in the Perl generator.


git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665582 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 fe554185..5e1503ba 100644
--- a/compiler/cpp/src/generate/t_perl_generator.cc
+++ b/compiler/cpp/src/generate/t_perl_generator.cc
@@ -41,8 +41,10 @@ void t_perl_generator::init_generator() {
 
   // Print header
   f_consts_ <<
-    autogen_comment() <<
-    endl;
+      autogen_comment() <<
+      "package "<<( ns.empty() ? "" : ns+"::")<<"Constants;"<<endl<<
+      perl_includes() <<
+      endl;
 }
 
 /**
@@ -189,7 +191,7 @@ string t_perl_generator::render_const_value(t_type* type, t_const_value* value)
       out << "," << endl;
     }
 
-    out << ")";
+    out << "}";
   } else if (type->is_list() || type->is_set()) {
     t_type* etype;
     if (type->is_list()) {