This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/vec.t: White space only.
authorKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 18:37:01 +0000 (12:37 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 18:49:27 +0000 (12:49 -0600)
Adds an indentation level following the previous commit's adding a
surrounding block

t/op/vec.t

index d0e90d2..d3bb57d 100644 (file)
@@ -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;