X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/315f3fc17abdd3264f6327001ab5b6e90fb7307a..270d3c5d82d37f92a0a41fc872cd9c9dfd2c1547:/t/op/vec.t

diff --git a/t/op/vec.t b/t/op/vec.t
index d0e90d2..d3bb57d 100644
--- a/t/op/vec.t
+++ b/t/op/vec.t
@@ -66,17 +66,17 @@ is(vec($x, 0, 8), 255);
 $@ = undef;
 {
     no warnings 'deprecated';
-eval { vec($foo, 1, 8) };
-ok(! $@);
-$@ = undef;
-eval { vec($foo, 1, 8) = 13 };
-ok(! $@);
-if ($::IS_EBCDIC) {
-    is($foo, "\x8c\x0d\xff\x8a\x69"); 
-}
-else {
-    is($foo, "\xc4\x0d\xc3\xbf\xc3\xbe");
-}
+    eval { vec($foo, 1, 8) };
+    ok(! $@);
+    $@ = undef;
+    eval { vec($foo, 1, 8) = 13 };
+    ok(! $@);
+    if ($::IS_EBCDIC) {
+        is($foo, "\x8c\x0d\xff\x8a\x69");
+    }
+    else {
+        is($foo, "\xc4\x0d\xc3\xbf\xc3\xbe");
+    }
 }
 $foo = "\x{100}" . "\xff\xfe";
 $x = substr $foo, 1;