-my ($w, $k) = ('') x 2;
-$n = ($Config{alignbytes} - 1) * 8;
-my $p = 4 + $n / 2;
-vec($w, $_, 1) = 1 for 0 .. $n - 1;
-vec($k, $_, 1) = 0 for 0 .. $n - 1;
-vec($k, $_ - $p, 1) = 1 for $p .. $n - 1;
-vcopy $w, $p, $w, 0, $n;
-ok(myeq($w, 0, $k, 0, $n), "vcopy with fill");
-is(length $w, length $k, "length is ok");
+{
+ my $desc = 'vcopy with fill';
+ my ($w, $k) = ('') x 2;
+ $n = ($Config{alignbytes} - 1) * 8;
+ my $p = 4 + $n / 2;
+ vec($w, $_, 1) = 1 for 0 .. $n - 1;
+ vec($k, $_, 1) = 0 for 0 .. $n - 1;
+ vec($k, $_ - $p, 1) = 1 for $p .. $n - 1;
+ vcopy $w, $p, $w, 0, $n;
+ is length $w, length $k, "$desc: length";
+ ok myeq($w, 0, $k, 0, $n), "$desc: bits";
+}