diff options
| author | Bruce Momjian <bruce@momjian.us> | 2011-06-09 14:32:50 -0400 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2011-06-09 14:32:50 -0400 |
| commit | 6560407c7db2c7e32926a46f5fb52175ac10d9e5 (patch) | |
| tree | 9641e538893819410634624a8e0cb86a13d857a6 /src/pl/plperl/plperl.c | |
| parent | adf43b2b36ca3d7f988933990051c74a4bd0d6f8 (diff) | |
| download | postgresql-6560407c7db2c7e32926a46f5fb52175ac10d9e5.tar.gz postgresql-6560407c7db2c7e32926a46f5fb52175ac10d9e5.zip | |
Pgindent run before 9.1 beta2.
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 6 |
1 files changed, 3 insertions, 3 deletions
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) |