diff options
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/overload.t b/lib/overload.t index 7d4dbff315..d59c33daf7 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1798,10 +1798,7 @@ foreach my $op (qw(<=> == != < <= > >=)) { # note: this is testing unary qr, not binary =~ $subs{qr} = '(qr/%s/)'; - # XXX TODO qr overload with fallback calls "" and FETCH too often - #push @tests, [ "abc", '"abc" =~ (%s)', '(qr)', '("")', [ 1, 2, 0 ], 0 ]; - push @tests, [ "abc", '"abc" =~ (%s)', '(qr)', '("")("")', - [ 1, 2, 0, 1, 5, 0 ], 0 ]; + push @tests, [ "abc", '"abc" =~ (%s)', '(qr)', '("")', [ 1, 2, 0 ], 0 ]; $e = '"abc" ~~ (%s)'; $subs{'~~'} = $e; |