Upgrade to Tie::File 0.20.

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

diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t
index 350cb65..4654118 100755 (executable)
--- a/t/op/sub_lval.t
+++ b/t/op/sub_lval.t
@@ -251,7 +251,7 @@ eval <<'EOE' or $_ = $@;
 EOE
 
 print "# '$_'.\nnot "
-  unless /Can\'t return a readonly value from lvalue subroutine/;
+  unless /Empty array returned from lvalue subroutine in scalar context/;
 print "ok 31\n";
 
 sub lv10 : lvalue {}