From 0c703cc2f8dd85016a2d7f19b31b09aee42361e0 Mon Sep 17 00:00:00 2001
From: David Reiss <dreiss@apache.org>
Date: Tue, 25 Mar 2008 18:38:56 +0000
Subject: [PATCH] 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 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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()) {
-- 
2.17.1