database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-07 00:36:50 +03:00
Code Activity

Update PL/Perl's comment about hv_store().

Browse Source 
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
This commit is contained in:
Tom Lane
2016-03-14 14:45:45 -04:00
parent f3f3aae4b7
commit 07341a2980
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/pl/plperl/plperl.c
View File

@ -3907,10 +3907,8 @@ hv_store_string(HV *hv, const char *key, SV *val)
hkey = pg_server_to_any(key, strlen(key), PG_UTF8); hkey = pg_server_to_any(key, strlen(key), PG_UTF8);
/* /*
* This seems nowhere documented, but under Perl 5.8.0 and up, hv_store() * hv_store() recognizes a negative klen parameter as meaning a UTF-8
* recognizes a negative klen parameter as meaning a UTF-8 encoded key. It * encoded key.
* 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); ret = hv_store(hv, hkey, hlen, val, 0);