In utf8decode.t, use warning_is() for the should-not-warn cases.

[perl5.git] / t / op / exists_sub.t

diff --git a/t/op/exists_sub.t b/t/op/exists_sub.t
index d4aa292..012ea33 100644 (file)
--- a/t/op/exists_sub.t
+++ b/t/op/exists_sub.t
@@ -8,7 +8,7 @@ BEGIN {
 print "1..9\n";
 
 sub t1;
-sub t2 : locked;
+sub t2 : lvalue;
 sub t3 ();
 sub t4 ($);
 sub t5 {1;}