This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/base/lex.t: Remove commented-out test
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Jan 2015 07:16:58 +0000 (23:16 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Jan 2015 14:30:32 +0000 (06:30 -0800)
It has been commented out since it was added in 2b92dfceaa9d.

t/base/lex.t

index e537805..c917d4f 100644 (file)
@@ -140,8 +140,6 @@ my $test = 31;
   # The second caret here should be interpreted as an xor
   if (($^Q^XX) != 3) { print "not " } 
   print "ok $test\n"; $test++;
-#  if (($N  ^  XX()) != 3) { print "not " } 
-#  print "ok $test\n"; $test++;
 
   # These next two tests are trying to make sure that
   # $^FOO is always global; it doesn't make sense to 'my' it.