1 files changed, 10 insertions, 4 deletions
diff --git a/cpan/Math-BigRat/t/bitwise.t b/cpan/Math-BigRat/t/bitwise.t
index be9aa4ce38..a23c5dcf52 100644
--- a/cpan/Math-BigRat/t/bitwise.t
+++ b/cpan/Math-BigRat/t/bitwise.t
@@ -1,5 +1,8 @@
+#!perl
+
 use strict;
 use warnings;
+
 use Test::More tests => 22;
 
 use Math::BigRat;
@@ -7,9 +10,12 @@ use Math::BigRat;
 my $x = Math::BigRat->new('3/7');
 
 for my $op (qw(& | ^ << >> &= |= ^= <<= >>=)) {
-    ok !eval "my \$y = \$x $op 42; 1";
-    like $@, qr/^bitwise operation \Q$op\E not supported in Math::BigRat/;
+    my $test = "\$y = \$x $op 42";
+    ok(!eval "my \$y = \$x $op 42; 1", $test);
+    like($@, qr/^bitwise operation \Q$op\E not supported in Math::BigRat/,
+         $test);
 }
 
-ok !eval "my \$y = ~\$x; 1";
-like $@, qr/^bitwise operation ~ not supported in Math::BigRat/;
+my $test = "\$y = ~\$x";
+ok(!eval "my \$y = ~\$x; 1", $test);
+like($@, qr/^bitwise operation ~ not supported in Math::BigRat/, $test);