Add get_cvs() as a shortcut for STR_WITH_LEN() and Perl_get_cvn_flags(), and

use it where possible.

1 files changed, 2 insertions, 0 deletions

diff --git a/handy.h b/handy.h
index e82a644071..75080cb641 100644
--- a/handy.h
+++ b/handy.h
@@ -327,6 +327,8 @@ and omits the hash parameter.
   ((SV **)Perl_hv_common(aTHX_ (hv), NULL, STR_WITH_LEN(key), 0,	\
 			 (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), (val), 0))
 
+#define get_cvs(str, flags)					\
+	Perl_get_cvn_flags(aTHX_ STR_WITH_LEN(str), (flags))
 
 /*
 =head1 Miscellaneous Functions