|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.78 2005/06/22 16:45:51 tgl Exp $ |
| 36 | + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.79 2005/07/03 21:56:16 tgl Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
@@ -1327,14 +1327,16 @@ plperl_hash_from_tuple(HeapTuple tuple, TupleDesc tupdesc) |
1327 | 1327 | getTypeOutputInfo(tupdesc->attrs[i]->atttypid, |
1328 | 1328 | &typoutput,&typisvarlena); |
1329 | 1329 |
|
1330 | | -outputstr=DatumGetCString(OidFunctionCall1(typoutput, |
1331 | | -attr)); |
| 1330 | +outputstr=DatumGetCString(OidFunctionCall1(typoutput,attr)); |
1332 | 1331 |
|
1333 | 1332 | sv=newSVpv(outputstr,0); |
1334 | 1333 | #ifPERL_BCDVERSION >=0x5006000L |
1335 | | -if (GetDatabaseEncoding()==PG_UTF8)SvUTF8_on(sv); |
| 1334 | +if (GetDatabaseEncoding()==PG_UTF8) |
| 1335 | +SvUTF8_on(sv); |
1336 | 1336 | #endif |
1337 | 1337 | hv_store(hv,attname,namelen,sv,0); |
| 1338 | + |
| 1339 | +pfree(outputstr); |
1338 | 1340 | } |
1339 | 1341 |
|
1340 | 1342 | returnnewRV_noinc((SV*)hv); |
|