t/op/vec.t: White space only.

[perl5.git] / t / op / vec.t

diff --git a/t/op/vec.t b/t/op/vec.t
index d0e90d2..d3bb57d 100644 (file)
--- a/t/op/vec.t
+++ b/t/op/vec.t
@@ -66,17 +66,17 @@ is(vec($x, 0, 8), 255);
 $@ = undef;
 {
     no warnings 'deprecated';
 $@ = 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;
 }
 $foo = "\x{100}" . "\xff\xfe";
 $x = substr $foo, 1;