diff options
| -rw-r--r-- | lib/constant.pm | 4 | ||||
| -rw-r--r-- | lib/constant.t | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lib/constant.pm b/lib/constant.pm index 318a5636e6..83714a89a4 100644 --- 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 f714d23bcc..b97c688e5b 100644 --- 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/, |