diff options
author | Leon Timmermans <fawaka@gmail.com> | 2012-01-23 02:01:00 +0100 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-01-23 21:26:32 -0500 |
commit | b900a653610df47ab299d9e50b8c0ae8d8cb44f6 (patch) | |
tree | cb1f919061b19b679622c36b9445c4f69b70c6ca /t | |
parent | e8acd6c51420b5d9471bf4a2e80536839f244f3a (diff) | |
download | perl-b900a653610df47ab299d9e50b8c0ae8d8cb44f6.tar.gz |
Enforce Any ~~ Object smartmatch precedence
Diffstat (limited to '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/ |