diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index ed6884e863a..f8ccaa59e89 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -3811,9 +3811,7 @@ hv_store_string(HV *hv, const char *key, SV *val) char *hkey; SV **ret; - hkey = (char *) - pg_do_encoding_conversion((unsigned char *) key, strlen(key), - GetDatabaseEncoding(), 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() @@ -3841,9 +3839,7 @@ hv_fetch_string(HV *hv, const char *key) char *hkey; SV **ret; - hkey = (char *) - pg_do_encoding_conversion((unsigned char *) key, strlen(key), - GetDatabaseEncoding(), PG_UTF8); + hkey = pg_server_to_any(key, strlen(key), PG_UTF8); /* See notes in hv_store_string */ hlen = -(int) strlen(hkey); |