diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 10:59:06 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:00 +0200 |
| commit | 2808d9d83c4e997cfe6f2f74160017418f7db638 (patch) | |
| tree | bf783f8207b911325895343fd1f057531579b59c /vms/vms.c | |
| parent | 5b1fede8986da7d83b67c4c43368188050e5d609 (diff) | |
| download | perl-2808d9d83c4e997cfe6f2f74160017418f7db638.tar.gz | |
vms: use hv_fetchs() with constant string key
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1301,7 +1301,7 @@ prime_env_iter(void) envhv = GvHVn(PL_envgv); /* Perform a dummy fetch as an lval to insure that the hash table is * set up. Otherwise, the hv_store() will turn into a nullop. */ - (void) hv_fetch(envhv,"DEFAULT",7,TRUE); + (void) hv_fetchs(envhv,"DEFAULT",TRUE); for (i = 0; env_tables[i]; i++) { if (!have_sym && (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) && |