Version change to ExtUtils::MM_Unix missed in change #30380.

[p5sagit/p5-mst-13.2.git] / lib / constant.pm

diff --git a/lib/constant.pm b/lib/constant.pm
index d6c8a09..f1b4d73 100644 (file)
--- a/lib/constant.pm
+++ b/lib/constant.pm
@@ -5,12 +5,12 @@ use 5.006_00;
 use warnings::register;
 
 our($VERSION, %declared);
-$VERSION = '1.07';
+$VERSION = '1.09';
 
 #=======================================================================
 
 # Some names are evil choices.
-my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
+my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK UNITCHECK END DESTROY AUTOLOAD };
 
 my %forced_into_main = map +($_, 1),
     qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
@@ -109,10 +109,8 @@ 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";
-                   }
                    *$full_name = sub () { $scalar };
                }
            } elsif (@_) {