pike.git/ src/ modules/ Perl/ perlmod.c

2000-03-18

2000-03-18 21:12:38 by Leif Stensson <leif@lysator.liu.se>

• 356d7259b87b4762334c4d548504641dfd6b25ce (8 lines) (+4/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed the get_hash_keys() function.

Rev: src/modules/Perl/perlmod.c:1.13

1: - /* $Id: perlmod.c,v 1.12 2000/03/14 21:33:24 leif Exp $ */ + /* $Id: perlmod.c,v 1.13 2000/03/18 21:12:38 leif Exp $ */      #include "builtin_functions.h"   #include "global.h"
671:       arr = allocate_array(n);    for(i = 0, hv_iterinit(hv); (he = hv_iternext(hv)); ++i) -  _sv_to_svalue(hv_iterkey(he, &len), -  &(arr->item[i])); +  _sv_to_svalue(hv_iterkeysv(he), &(arr->item[i]));       pop_n_elems(args);    push_array(arr);
755:    tFunc(tStr,tArr(tMix)),0);       /* function(string:int) */ -  ADD_FUNCTION("get_hash_keys",perlmod_get_whole_array, +  ADD_FUNCTION("get_hash_keys",perlmod_get_hash_keys,    tFunc(tStr,tArr(tMix)),0);      #if 0