parser panics on lvalue methods

[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 e101f97..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 {}
@@ -283,9 +283,10 @@ eval <<'EOE' or $_ = $@;
   1;
 EOE
 
-print "# '$_'.\nnot "
-  unless /Can\'t return an uninitialized value from lvalue subroutine/;
-print "ok 34\n";
+# Fixed by change @10777
+#print "# '$_'.\nnot "
+#  unless /Can\'t return an uninitialized value from lvalue subroutine/;
+print "ok 34 # Skip: removed test\n";
 
 $x = '1234567';