Get rid of a few more hardcoded string lengths.

p4raw-id: //depot/perl@26645

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 3478b410dc..f13dd36f78 100644
--- a/mg.c
+++ b/mg.c
@@ -1444,7 +1444,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
 	 * tell whether HINT_STRICT_REFS is in force or not.
 	 */
 	if (!strchr(s,':') && !strchr(s,'\''))
-	    sv_insert(sv, 0, 0, "main::", 6);
+	    sv_insert(sv, 0, 0, STR_WITH_LEN("main::"));
 	if (i)
 	    (void)rsignal(i, PL_csighandlerp);
 	else