diff options
| author | Father Chrysostomos (via RT) <perlbug-followup@perl.org> | 2010-01-17 14:32:24 -0800 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-05-25 12:44:16 +0100 |
| commit | bb1bc619ea68d9703fbd3fe5bc65ae000f90151f (patch) | |
| tree | 64b580d9b4866d7532b1e7050147e511baccb88a /t | |
| parent | 6a5f8cbd14b4a44b35830907e944f1af0caeea90 (diff) | |
| download | perl-bb1bc619ea68d9703fbd3fe5bc65ae000f90151f.tar.gz | |
Deref ops ignore get-magic when SvROK(sv)
This is just like bug 68192, except in this case it’s a different set
of operators that have had this problem for much longer.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 5db6cfb859..281c0d97a0 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -840,6 +840,10 @@ fetching... <=> 1 { package overloaded; use overload + '*{}' => sub { print '*{}'; \*100 }, + '@{}' => sub { print '@{}'; \@100 }, + '%{}' => sub { print '%{}'; \%100 }, + '${}' => sub { print '${}'; \$100 }, map { my $op = $_; $_ => sub { print "$op"; 100 } @@ -868,6 +872,10 @@ $ghew=undef; $ghew<=1; print "\n"; $ghew=undef; $ghew >=1; print "\n"; $ghew=undef; $ghew != 1; print "\n"; $ghew=undef; $ghew<=>1; print "\n"; +$ghew=\*shrext; *$ghew; print "\n"; +$ghew=\@spled; @$ghew; print "\n"; +$ghew=\%frit; %$ghew; print "\n"; +$ghew=\$drile; $$ghew; print "\n"; EXPECT fetching... + fetching... ** @@ -885,3 +893,7 @@ fetching... <= fetching... >= fetching... != fetching... <=> +fetching... *{} +fetching... @{} +fetching... %{} +fetching... ${} |