[DBD::Pg 2/2] Remove references to the interpreter struct in types.c - it's not used there.

[dbdpg-commits]

Committed by Nicholas Clark <n...@ccl4.org>

Subject: [DBD::Pg 2/2] Remove references to the interpreter struct in types.c
- it's not used there.

---
 types.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/types.c b/types.c
index ab7dfaa..0b391ae 100644
--- a/types.c
+++ b/types.c
@@ -175,8 +175,6 @@ static sql_type_info_t pg_types[] = {
 
 sql_type_info_t* pg_type_data(int sql_type)
 {
-       dTHX;
-
        switch(sql_type) {
 
                case PG_ABSTIMEARRAY:       return &pg_types[0];
@@ -366,8 +364,6 @@ static sql_type_info_t sql_types[] = {
 
 sql_type_info_t* sql_type_data(int sql_type)
 {
-       dTHX;
-
        switch(sql_type) {
                case SQL_BOOLEAN:                      return &sql_types[0];
                case SQL_CHAR:                         return &sql_types[1];
@@ -700,8 +696,6 @@ print $newfh "\};\n\n";
 print $newfh
 "sql_type_info_t* pg_type_data(int sql_type)
 {
-\tdTHX;
-
 \tswitch(sql_type) {
 \n";
 
@@ -728,7 +722,7 @@ for my $name (sort { $a cmp $b } keys %pgtype) {
 }
 print $newfh "\};\n\n";
 
-print $newfh "sql_type_info_t* sql_type_data(int sql_type)\n\{\n\tdTHX;\n\n";
+print $newfh "sql_type_info_t* sql_type_data(int sql_type)\n\{\n";
 
 print $newfh "\tswitch(sql_type) \{\n";
 for (sort { $pos{$a} <=> $pos{$b} } keys %pos) {
-- 
1.8.4