summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-10-13 16:02:05 +0100
committerJesse Vincent <jesse@bestpractical.com>2009-10-16 12:30:16 -0400
commit43b3daf05d64926950dcc26b6a3e77b7c8f513da (patch)
tree6da5a2921ff4403fde66abc0cc08775eb765638f
parentaf224ca80759294e384971bba25264ff216c7223 (diff)
downloadperl-43b3daf05d64926950dcc26b6a3e77b7c8f513da.tar.gz
locked is deprecated, so use :lvalue instead.
-rw-r--r--cpan/AutoLoader/t/02AutoSplit.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/cpan/AutoLoader/t/02AutoSplit.t b/cpan/AutoLoader/t/02AutoSplit.t
index c652562b30..f220a76cdc 100644
--- a/cpan/AutoLoader/t/02AutoSplit.t
+++ b/cpan/AutoLoader/t/02AutoSplit.t
@@ -247,8 +247,8 @@ package Yet::Another::AutoSplit;
sub testtesttesttest4_1 ($) { "another test 4"; }
sub testtesttesttest4_2 ($$) { "another duplicate test 4"; }
package Yet::More::Attributes;
-sub test_a1 ($) : locked :locked { 1; }
-sub test_a2 : locked { 1; }
+sub test_a1 ($) : lvalue :lvalue { 1; }
+sub test_a2 : lvalue { 1; }
# And that was all it has. You were expected to manually inspect the output
## Get
Warning: AutoSplit had to create top-level *DIR* unexpectedly.
@@ -280,8 +280,8 @@ sub test2\s*\(\$\$\);
sub test3\s*\(\$\$\$\);
sub testtesttesttest4_1\s*\(\$\);
sub testtesttesttest4_2\s*\(\$\$\);
-sub test_a1\s*\(\$\)\s*:\s*locked\s*:\s*locked\s*;
-sub test_a2\s*:\s*locked\s*;
+sub test_a1\s*\(\$\)\s*:\s*lvalue\s*:\s*lvalue\s*;
+sub test_a2\s*:\s*lvalue\s*;
## Tests
is (*MOD*::test1 (1), 'test 1');
is (*MOD*::test2 (1,2), 'test 2');