inform constant.pm about UNITCHECK

From: "Joshua ben Jore" <twists@gmail.com>
Message-ID: <dc5c751d0703130035o1a739f45g1ea559d110bd5dd8@mail.gmail.com>

p4raw-id: //depot/perl@30561

diff --git a/lib/constant.pm b/lib/constant.pm
index 318a563..83714a8 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.08';
+$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 };

diff --git a/lib/constant.t b/lib/constant.t
index f714d23..b97c688 100644 (file)
--- a/lib/constant.t
+++ b/lib/constant.t
@@ -14,7 +14,7 @@ END { print STDERR @warnings }
 
 
 use strict;
-use Test::More tests => 95;
+use Test::More tests => 96;
 my $TB = Test::More->builder;
 
 BEGIN { use_ok('constant'); }
@@ -182,6 +182,7 @@ eval q{
     use constant 'BEGIN' => 1 ;
     use constant 'INIT' => 1 ;
     use constant 'CHECK' => 1 ;
+    use constant 'UNITCHECK' => 1;
     use constant 'END' => 1 ;
     use constant 'DESTROY' => 1 ;
     use constant 'AUTOLOAD' => 1 ;
@@ -195,13 +196,14 @@ eval q{
     use constant 'SIG' => 1 ;
 };
 
-is @warnings, 15 ;
+is @warnings, 16 ;
 my @Expected_Warnings = 
   (
    qr/^Constant name 'BEGIN' is a Perl keyword at/,
    qr/^Constant subroutine BEGIN redefined at/,
    qr/^Constant name 'INIT' is a Perl keyword at/,
    qr/^Constant name 'CHECK' is a Perl keyword at/,
+   qr/^Constant name 'UNITCHECK' is a Perl keyword at/,
    qr/^Constant name 'END' is a Perl keyword at/,
    qr/^Constant name 'DESTROY' is a Perl keyword at/,
    qr/^Constant name 'AUTOLOAD' is a Perl keyword at/,