[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / vec.t

diff --git a/t/op/vec.t b/t/op/vec.t
old mode 100755 (executable)
new mode 100644 (file)
index b59eafb..aed1d0f
--- a/t/op/vec.t
+++ b/t/op/vec.t
@@ -11,7 +11,7 @@ plan( tests => 31 );
 my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
 
 is(vec($foo,0,1), 0);
-is(length($foo), 0);
+is(length($foo), undef);
 vec($foo,0,1) = 1;
 is(length($foo), 1);
 is(unpack('C',$foo), 1);
@@ -43,16 +43,16 @@ ok("$foo $bar $baz" eq "1 2 3");
 # error cases
 
 $x = eval { vec $foo, 0, 3 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec $foo, 0, 0 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec $foo, 0, -13 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec($foo, -1, 4) = 2 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Negative offset to vec in lvalue context/);
 $@ = undef;
 ok(! vec('abcd', 7, 8));