From 017a3ce5a449d7513ebed2de872ff4d966fd0b43 Mon Sep 17 00:00:00 2001 From: Gisle Aas Date: Wed, 11 Jan 2006 21:09:19 +0000 Subject: A few more places that can use hv_fetchs(). Ref change 26676. p4raw-id: //depot/perl@26795 --- mg.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index 9ba8d10a96..fb47f1f7ed 100644 --- a/mg.c +++ b/mg.c @@ -818,7 +818,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) * it could have been extended by warnings::register */ SV **bits_all; HV * const bits=get_hv("warnings::Bits", FALSE); - if (bits && (bits_all=hv_fetch(bits, "all", 3, FALSE))) { + if (bits && (bits_all=hv_fetchs(bits, "all", FALSE))) { sv_setsv(sv, *bits_all); } else { -- cgit v1.2.1