Login
Change ValuesAndExpressions::ProhibitMagicNumbers test to not use
authorElliot Shank <perl@galumph.com>
Sat, 13 Nov 2010 20:39:24 +0000 (20:39 +0000)
committerElliot Shank <perl@galumph.com>
Sat, 13 Nov 2010 20:39:24 +0000 (20:39 +0000)
Const::Fast as its example of a custom constant-declaring subroutine.

t/ValuesAndExpressions/ProhibitMagicNumbers.run

index b9d614d..8e03844 100644 (file)
@@ -953,12 +953,11 @@ use version; our $VERSION = qv((qw$Revision$)[1] / 1000);
 use version; our $VERSION = version->new('1.23');
 
 ## name user-defined constant creators. RT #62562
-## parms { allow_to_the_right_of_a_fat_comma => 0, constant_creator_subroutines => 'const' }
+## parms { allow_to_the_right_of_a_fat_comma => 0, constant_creator_subroutines => 'blahlahlah' }
 ## failures 0
 ## cut
 
-use Const::Fast;
-const my $answer => 42;
+blahlahlah my $answer => 42;
 
 #-----------------------------------------------------------------------------