more m//s and $ vs \z fixups (from Greg Bacon)

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

diff --git a/lib/constant.pm b/lib/constant.pm
index 31f47fb..bbfdb78 100644 (file)
--- a/lib/constant.pm
+++ b/lib/constant.pm
@@ -1,15 +1,15 @@
 package constant;
 
 use strict;
-use vars qw( $VERSION %declared );
+use 5.005_64;
+
+our($VERSION, %declared);
 $VERSION = '1.01';
 
 #=======================================================================
 
-require 5.005_62;
-
 # Some names are evil choices.
-my %keywords = map +($_, 1), qw{ BEGIN INIT STOP END DESTROY AUTOLOAD };
+my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
 
 my %forced_into_main = map +($_, 1),
     qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };