Fix broken MM_Win32.t tests following 27590

[perl5.git] / lib / constant.pm

diff --git a/lib/constant.pm b/lib/constant.pm
index d6c8a09..0b8efb3 100644 (file)
--- a/lib/constant.pm
+++ b/lib/constant.pm
@@ -109,6 +109,7 @@ sub import {
                    # constants from cv_const_sv are read only. So we have to:
                    Internals::SvREADONLY($scalar, 1);
                    $symtab->{$name} = \$scalar;
+                   Internals::inc_sub_generation;
                } else {
                    if(!exists $symtab->{$name}) {
                        print STDERR "$name $scalar\n";