summaryrefslogtreecommitdiff
path: root/src/pl
diff options
context:
space:
mode:
authorTom Lane <tgl@sss.pgh.pa.us>2016-03-14 14:45:45 -0400
committerTom Lane <tgl@sss.pgh.pa.us>2016-03-14 14:45:45 -0400
commit07341a2980a37ccbb3a51af2bd2f3c87953d8ea4 (patch)
tree71b33225cf3bd4468fac157bb7fa9b452b453db6 /src/pl
parentf3f3aae4b7841f4dc51129691a7404a03eb55449 (diff)
downloadpostgresql-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')
-rw-r--r--src/pl/plperl/plperl.c6
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);