diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-10-13 16:02:05 +0100 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-16 12:30:16 -0400 |
commit | 43b3daf05d64926950dcc26b6a3e77b7c8f513da (patch) | |
tree | 6da5a2921ff4403fde66abc0cc08775eb765638f | |
parent | af224ca80759294e384971bba25264ff216c7223 (diff) | |
download | perl-43b3daf05d64926950dcc26b6a3e77b7c8f513da.tar.gz |
locked is deprecated, so use :lvalue instead.
-rw-r--r-- | cpan/AutoLoader/t/02AutoSplit.t | 8 |
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'); |