This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/re/t/re.t: Use variable instead of constants
authorKarl Williamson <khw@cpan.org>
Wed, 4 Feb 2015 18:39:32 +0000 (11:39 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 4 Feb 2015 19:22:08 +0000 (12:22 -0700)
There are multiple occurrences of these constants in the file.  It's
better to use a variable than to repeat them.

ext/re/t/re.t

index 13498bb..353ff81 100644 (file)
@@ -10,6 +10,9 @@ BEGIN {
 
 use strict;
 
+my $re_taint_bit = 0x00100000;
+my $re_eval_bit = 0x00200000;
+
 use Test::More tests => 15;
 require_ok( 're' );
 
@@ -42,20 +45,20 @@ isnt( $ENV{PERL_RE_COLORS}, '',
 re::bits(0, 'nosuchsubpragma');
 like( $warn, qr/Unknown "re" subpragma/, 
        '... should warn about unknown subpragma' );
-ok( re::bits(0, 'taint') & 0x00100000, '... should set taint bits' );
-ok( re::bits(0, 'eval')  & 0x00200000, '... should set eval bits' );
+ok( re::bits(0, 'taint') & $re_taint_bit, '... should set taint bits' );
+ok( re::bits(0, 'eval')  & $re_eval_bit, '... should set eval bits' );
 
 local $^H;
 
 # import
 re->import('taint', 'eval');
-ok( $^H & 0x00100000, 'import should set taint bits in $^H when requested' );
-ok( $^H & 0x00200000, 'import should set eval bits in $^H when requested' );
+ok( $^H & $re_taint_bit, 'import should set taint bits in $^H when requested' );
+ok( $^H & $re_eval_bit, 'import should set eval bits in $^H when requested' );
 
 re->unimport('taint');
-ok( !( $^H & 0x00100000 ), 'unimport should clear bits in $^H when requested' );
+ok( !( $^H & $re_taint_bit ), 'unimport should clear bits in $^H when requested' );
 re->unimport('eval');
-ok( !( $^H & 0x00200000 ), '... and again' );
+ok( !( $^H & $re_eval_bit ), '... and again' );
 my $reg=qr/(foo|bar|baz|blah)/;
 close STDERR;
 eval"use re Debug=>'ALL'";