$@ = 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;