From 6560407c7db2c7e32926a46f5fb52175ac10d9e5 Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Thu, 9 Jun 2011 14:32:50 -0400 Subject: Pgindent run before 9.1 beta2. --- src/pl/plperl/plperl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/pl/plperl/plperl.c') diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index d2c672c7bb3..61252308cd8 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -1986,7 +1986,7 @@ plperl_call_perl_trigger_func(plperl_proc_desc *desc, FunctionCallInfo fcinfo, if (!TDsv) elog(ERROR, "couldn't fetch $_TD"); - save_item(TDsv); /* local $_TD */ + save_item(TDsv); /* local $_TD */ sv_setsv(TDsv, td); PUSHMARK(sp); @@ -3564,7 +3564,7 @@ hv_store_string(HV *hv, const char *key, SV *val) * does not appear that hashes track UTF-8-ness of keys at all in Perl * 5.6. */ - hlen = - (int) strlen(hkey); + hlen = -(int) strlen(hkey); ret = hv_store(hv, hkey, hlen, val, 0); if (hkey != key) @@ -3589,7 +3589,7 @@ hv_fetch_string(HV *hv, const char *key) GetDatabaseEncoding(), PG_UTF8); /* See notes in hv_store_string */ - hlen = - (int) strlen(hkey); + hlen = -(int) strlen(hkey); ret = hv_fetch(hv, hkey, hlen, 0); if (hkey != key) -- cgit v1.2.3