Export the patchlevel with the new VMG_PERL_PATCHLEVEL constant

[perl/modules/Variable-Magic.git] / Magic.xs

diff --git a/Magic.xs b/Magic.xs
index e0e425cb37d16ec284ad515f80ef0410519a0601..416bf7286e14adec3d4db96d83a05b8c83919131 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -717,6 +717,7 @@ BOOT:
                     newSVuv(VMG_COMPAT_ARRAY_UNDEF_CLEAR));
  newCONSTSUB(stash, "VMG_COMPAT_SCALAR_LENGTH_NOLEN",
                     newSVuv(VMG_COMPAT_SCALAR_LENGTH_NOLEN));
+ newCONSTSUB(stash, "VMG_PERL_PATCHLEVEL", newSVuv(VMG_PERL_PATCHLEVEL));
 }
 
 SV *_wizard(...)