From b1f322b632cc71da2aff6076d0991449976c8c19 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Wed, 26 Mar 2025 16:35:41 +0000
Subject: [PATCH] Dumper.xs: Use PERL_MAGIC_vstring symbolic constant rather
 than 'V' character literal

The symbolic name is just a name for the character constant, but doing
this makes it possible to find e.g. via grep.
---
 dist/Data-Dumper/Dumper.pm | 2 +-
 dist/Data-Dumper/Dumper.xs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index 70f262dc8017..0ebe3485d464 100644
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -30,7 +30,7 @@ our ( $Indent, $Trailingcomma, $Purity, $Pad, $Varname, $Useqq, $Terse, $Freezer
 our ( @ISA, @EXPORT, @EXPORT_OK, $VERSION );
 
 BEGIN {
-    $VERSION = '2.191'; # Don't forget to set version and release
+    $VERSION = '2.192'; # Don't forget to set version and release
                         # date in POD below!
 
     @ISA = qw(Exporter);
diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index 4d54ba1e6f4d..b9195e1446fb 100644
--- a/dist/Data-Dumper/Dumper.xs
+++ b/dist/Data-Dumper/Dumper.xs
@@ -1386,7 +1386,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
 	    sv_catpvs(retval, "undef");
 	}
 #ifdef SvVOK
-	else if (SvMAGICAL(val) && (mg = mg_find(val, 'V'))) {
+	else if (SvMAGICAL(val) && (mg = mg_find(val, PERL_MAGIC_vstring))) {
 # if !defined(PL_vtbl_vstring) && PERL_VERSION_LT(5,17,0)
 	    SV * const vecsv = sv_newmortal();
 #  if PERL_VERSION_LT(5,10,0)
@@ -1703,7 +1703,7 @@ Data_Dumper__vstring(sv)
 #ifdef SvVOK
 	    const MAGIC *mg;
 	    RETVAL =
-		SvMAGICAL(sv) && (mg = mg_find(sv, 'V'))
+		SvMAGICAL(sv) && (mg = mg_find(sv, PERL_MAGIC_vstring))
 		 ? newSVpvn((const char *)mg->mg_ptr, mg->mg_len)
 		 : &PL_sv_undef;
 #else