commit 0c703cc2f8dd85016a2d7f19b31b09aee42361e0
author David Reiss <dreiss@apache.org> Tue Mar 25 18:38:56 2008 +0000
committer David Reiss <dreiss@apache.org> Tue Mar 25 18:38:56 2008 +0000
tree f80d0a968b72b463989fb04fe6cd9ed8446f19b8
parent 0b8a382c00c6756bd4611e2aa7545d8fe8e82598

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

compiler/cpp/src/generate/t_perl_generator.cc

diff --git a/compiler/cpp/src/generate/t_perl_generator.cc b/compiler/cpp/src/generate/t_perl_generator.cc
index fe55418..5e1503b 100644
--- a/compiler/cpp/src/generate/t_perl_generator.cc
+++ b/compiler/cpp/src/generate/t_perl_generator.cc
@@ -41,8 +41,10 @@
 
   // Print header
   f_consts_ <<
-    autogen_comment() <<
-    endl;
+      autogen_comment() <<
+      "package "<<( ns.empty() ? "" : ns+"::")<<"Constants;"<<endl<<
+      perl_includes() <<
+      endl;
 }
 
 /**
@@ -189,7 +191,7 @@
       out << "," << endl;
     }
 
-    out << ")";
+    out << "}";
   } else if (type->is_list() || type->is_set()) {
     t_type* etype;
     if (type->is_list()) {