Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/hv.c

Lines Matching refs:keysv
264 Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash)
266   return hv_fetch_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash);
340 Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
342     return hv_fetch_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash)
366 Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash)
368     return hv_fetch_common(hv, keysv, NULL, 0, 0, 
373 S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
387     if (keysv) {
390 	key = SvPV(keysv, klen);
392 	is_utf8 = (SvUTF8(keysv) != 0);
407 		if (!keysv) {
408 		    keysv = newSVpvn(key, klen);
410 			SvUTF8_on(keysv);
413 		    keysv = newSVsv(keysv);
415 		mg_copy((SV*)hv, sv, (char *)keysv, HEf_SVKEY);
428 		HeSVKEY_set(entry, keysv);
460 			    entry = hv_fetch_common(hv, keysv, key, klen,
480 		if (keysv || is_utf8) {
481 		    if (!keysv) {
482 			keysv = newSVpvn(key, klen);
483 			SvUTF8_on(keysv);
485 			keysv = newSVsv(keysv);
487 		    mg_copy((SV*)hv, sv, (char *)sv_2mortal(keysv), HEf_SVKEY);
522 		if (keysv || is_utf8) {
523 		    if (!keysv) {
524 			keysv = newSVpvn(key, klen);
525 			SvUTF8_on(keysv);
528 			PL_tainted = SvTAINTED(keysv);
529 		    keysv = sv_2mortal(newSVsv(keysv));
530 		    mg_copy((SV*)hv, val, (char*)keysv, HEf_SVKEY);
610         if (keysv && (SvIsCOW_shared_hash(keysv))) {
611             hash = SvUVX(keysv);
705 	    return hv_fetch_common(hv,keysv,key,klen,flags,HV_FETCH_ISSTORE,sv,
729 	    return hv_fetch_common(hv, keysv, key, klen, flags,
868 Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
870     return hv_delete_common(hv, keysv, NULL, 0, 0, flags, hash);
874 S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
888     if (keysv) {
891 	key = SvPV(keysv, klen);
893 	is_utf8 = (SvUTF8(keysv) != 0);
904 	    entry = hv_fetch_common(hv, keysv, key, klen,
923 		    keysv = sv_2mortal(newSVpvn(key,klen));
927 		    key = strupr(SvPVX(keysv));
964         if (keysv && (SvIsCOW_shared_hash(keysv))) {
965             hash = SvUVX(keysv);
1457 			SV* keysv = hv_iterkeysv(entry);
1460 				   keysv);