X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/97aff369fa5580e7a888d4fa4c86be74ab000409..a4fc7abc9c5502fa20253f620ede1e956c44caed:/handy.h

diff --git a/handy.h b/handy.h
index cb5de19..3c3e443 100644
--- a/handy.h
+++ b/handy.h
@@ -250,6 +250,7 @@ typedef U64TYPE U64;
 #define sv_catpvs(sv, str) Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), SV_GMAGIC)
 #define savepvs(str) Perl_savepvn(aTHX_ STR_WITH_LEN(str))
 #define gv_stashpvs(str, create) Perl_gv_stashpvn(aTHX_ STR_WITH_LEN(str), create)
+#define hv_fetchs(hv,key,lval) Perl_hv_fetch(aTHX_ hv, STR_WITH_LEN(key), lval)
 
 /*
 =head1 Miscellaneous Functions