This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Call FETCH once when chomping a tied ref
[perl5.git] / t / op / gmagic.t
index 9abde47..daebae4 100644 (file)
@@ -56,6 +56,11 @@ ok($s eq *strat,
    'Assignment should not ignore magic when the last thing assigned was a glob');
 expected_tie_calls(tied $c, 1, 1);
 
+package o { use overload '""' => sub { "foo\n" } }
+$c = bless [], o::;
+chomp $c;
+expected_tie_calls(tied $c, 1, 2, 'chomping a ref');
+
 # autovivication of aelem, helem, of rv2sv combined with get-magic
 {
     my $true = 1;