diff options
author | Chip Salzenberg <chip@pobox.com> | 1998-06-04 09:47:31 -0400 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 06:33:16 +0000 |
commit | fae75791d47423cf8816d13f7030c34cfdb1c512 (patch) | |
tree | d74d84d7a9ff9d13f4bfd9d6a3f04babc1d91f94 /t/op/method.t | |
parent | f9020f6850b61fb9b36e73fa4c437ad49d7d6b71 (diff) | |
download | perl-fae75791d47423cf8816d13f7030c34cfdb1c512.tar.gz |
Invalidate method cache on C<local *subname>
Message-ID: <19980604134731.D24343@perlsupport.com>
p4raw-id: //depot/perl@1097
Diffstat (limited to 't/op/method.t')
-rwxr-xr-x | t/op/method.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/method.t b/t/op/method.t index d955705d1a..f1b1888ef6 100755 --- a/t/op/method.t +++ b/t/op/method.t @@ -4,7 +4,7 @@ # test method calls and autoloading. # -print "1..24\n"; +print "1..26\n"; @A::ISA = 'B'; @B::ISA = 'C'; @@ -66,6 +66,12 @@ test (A->d, "B::d4"); # Update hash table; delete $B::{d}; # Should work without any help too test (A->d, "C::d"); +{ + local *C::d; + test (eval { A->d } || "nope", "nope"); +} +test (A->d, "C::d"); + *A::x = *A::d; # See if cache incorrectly follows synonyms A->d; test (eval { A->x } || "nope", "nope"); |