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 fe55418..5e1503b 100644 (file)
--- 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()) {