diff options
author | Ricardo Signes <rjbs@cpan.org> | 2012-01-22 22:04:10 -0500 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-01-22 22:04:10 -0500 |
commit | d676ba3d4e93f51782a425a31042dbe61a765e2c (patch) | |
tree | 1b4178d920af9d5023e917f0a14370001e100ab9 /t/op/smartmatch.t | |
parent | 9a8aa25b28a859846cf1458bfe11f17ad258e982 (diff) | |
download | perl-d676ba3d4e93f51782a425a31042dbe61a765e2c.tar.gz |
don't favor left operand's overload over right'ssmoke-me/rjbs/smartmatch-prec
Diffstat (limited to 't/op/smartmatch.t')
-rw-r--r-- | t/op/smartmatch.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index da4840eaca..79c9847fbf 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -73,7 +73,7 @@ my %keyandmore = map { $_ => 0 } @keyandmore; my %fooormore = map { $_ => 0 } @fooormore; # Load and run the tests -plan tests => 351; +plan tests => 349; while (<DATA>) { SKIP: { @@ -223,8 +223,6 @@ __DATA__ @ "object" $str_obj @ FALSE $str_obj # Those will treat the $str_obj as a string because of fallback: -! $ov_obj $str_obj - $ov_obj_2 $str_obj # object (overloaded or not) ~~ Any $obj qr/NoOverload/ |