Fix test for overload in given() with smart match after last change
[p5sagit/p5-mst-13.2.git] / t / op / vec.t
index 4ca23f1..aed1d0f 100755 (executable)
@@ -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);