diff options
| author | David Mitchell <davem@iabyn.com> | 2010-07-03 15:41:34 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-07-03 16:25:59 +0100 |
| commit | 40c852dee6a247b996f2c759f997f7c7c89a47b3 (patch) | |
| tree | fa17dc7c6901c1ea1a3d7c2fbf74927b1f3b0f89 /lib/overload.t | |
| parent | 0d7d409d8d92b77ed7de5b74ab047eced86edfc3 (diff) | |
| download | perl-40c852dee6a247b996f2c759f997f7c7c89a47b3.tar.gz | |
avoid multiple FETCH/stringify on filetest ops
some of the filetest operators could call mg_get and/or overload fallback
stringify multiple times
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/overload.t b/lib/overload.t index d59c33daf7..d116925f15 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1815,17 +1815,7 @@ foreach my $op (qw(<=> == != < <= > >=)) { # long as the tied and untied versions return the same value. # The flags below are chosen to test all uses of tryAMAGICftest_MG for (qw(r e f l t T)) { - # XXX TODO -X overload with fallback calls FETCH too often - # XXX and -t calls "" too often too - #push @tests, [ 'TEST', "-$_ (%s)", '(-X)', '("")', [ 1, 2, 0 ], 0 ]; - if ($_ eq 't') { - push @tests, [ 'TEST', "-$_ (%s)", '(-X)', '("")("")', - [ 1, 2, 0, 1, 5, 0 ], 0 ]; - } - else { - push @tests, [ 'TEST', "-$_ (%s)", '(-X)', '("")', - [ 1, 2, 0, 1, 3, 0 ], 0 ]; - } + push @tests, [ 'TEST', "-$_ (%s)", '(-X)', '("")', [ 1, 2, 0 ], 0 ]; } $subs{'${}'} = '%s'; |