This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for RT #8438: $tied->() doesn't call FETCH
[perl5.git] / lib / overload.t
index 2b28c5a..ca58619 100644 (file)
@@ -1747,7 +1747,7 @@ foreach my $op (qw(<=> == != < <= > >=)) {
                '', 1, 2, 0 ];
 
        $subs{'&{}'} = '%s';
-       push @terms, [ sub {99}, '&{%s}', '&{}', '', 1, 2, 0 ];
+       push @terms, [ sub {99}, 'do {&{%s} for 1,2}', '&{})(&{}', '', 2, 4, 0 ];
 
        our $RT57012A = 88;
        our $RT57012B;