diff options
| author | Bruce Momjian <bruce@momjian.us> | 2007-11-15 22:25:18 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2007-11-15 22:25:18 +0000 |
| commit | f6e8730d11ddfc720eda1dde23794d262ad8cc08 (patch) | |
| tree | 1fa229dc473a3e7c075099e491d822a4d50e6d0e /src/pl/plperl/plperl.c | |
| parent | da0b2cdff893512e01cd175eb2e0e831d2fa559e (diff) | |
| download | postgresql-f6e8730d11ddfc720eda1dde23794d262ad8cc08.tar.gz postgresql-f6e8730d11ddfc720eda1dde23794d262ad8cc08.zip | |
Re-run pgindent with updated list of typedefs. (Updated README should
avoid this problem in the future.)
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 63996f31e54..936bbcc0828 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -1,7 +1,7 @@ /********************************************************************** * plperl.c - perl as a procedural language for PostgreSQL * - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.131 2007/11/15 21:14:46 momjian Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.132 2007/11/15 22:25:17 momjian Exp $ * **********************************************************************/ @@ -63,7 +63,7 @@ typedef struct plperl_proc_entry char proc_name[NAMEDATALEN]; /* internal name, eg * __PLPerl_proc_39987 */ plperl_proc_desc *proc_data; -} plperl_proc_entry; +} plperl_proc_entry; /* * The information we cache for the duration of a single call to a @@ -98,7 +98,7 @@ typedef struct plperl_query_entry { char query_name[NAMEDATALEN]; plperl_query_desc *query_data; -} plperl_query_entry; +} plperl_query_entry; /********************************************************************** * Global data @@ -111,7 +111,7 @@ typedef enum INTERP_TRUSTED, INTERP_UNTRUSTED, INTERP_BOTH -} InterpState; +} InterpState; static InterpState interp_state = INTERP_NONE; static bool can_run_two = false; @@ -2571,8 +2571,8 @@ hv_store_string(HV *hv, const char *key, SV *val) /* * This seems nowhere documented, but under Perl 5.8.0 and up, hv_store() - * recognizes a negative klen parameter as meaning a UTF-8 encoded key. - * It does not appear that hashes track UTF-8-ness of keys at all in Perl + * recognizes a negative klen parameter as meaning a UTF-8 encoded key. It + * does not appear that hashes track UTF-8-ness of keys at all in Perl * 5.6. */ #if PERL_BCDVERSION >= 0x5008000L |