diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2016-03-14 14:45:45 -0400 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2016-03-14 14:45:45 -0400 |
| commit | 07341a2980a37ccbb3a51af2bd2f3c87953d8ea4 (patch) | |
| tree | 71b33225cf3bd4468fac157bb7fa9b452b453db6 /src/pl/plperl/plperl.c | |
| parent | f3f3aae4b7841f4dc51129691a7404a03eb55449 (diff) | |
| download | postgresql-07341a2980a37ccbb3a51af2bd2f3c87953d8ea4.tar.gz | |
Update PL/Perl's comment about hv_store().
Negative klen is documented since Perl 5.16, and 5.6 is no longer
supported so no need to comment about it.
Dagfinn Ilmari Mannsåker
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 1114b59416..f60c227dda 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -3907,10 +3907,8 @@ hv_store_string(HV *hv, const char *key, SV *val) hkey = pg_server_to_any(key, strlen(key), PG_UTF8); /* - * 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 - * 5.6. + * hv_store() recognizes a negative klen parameter as meaning a UTF-8 + * encoded key. */ hlen = -(int) strlen(hkey); ret = hv_store(hv, hkey, hlen, val, 0); |