commit 95302852e4ccc600289f3b575fb560e4126517f3 Author: CPAN Sandbox Date: Thu Aug 13 00:23:52 2009 +0200 test on 5.10.1 works now diff --git a/t/tlib/Exception/BaseTest.pm b/t/tlib/Exception/BaseTest.pm index a0da391..6c749ec 100644 --- a/t/tlib/Exception/BaseTest.pm +++ b/t/tlib/Exception/BaseTest.pm @@ -575,7 +575,8 @@ sub test_overload { eval q{ $self->assert_num_equals(1, $obj ~~ 'String'); $self->assert_num_equals(1, $obj ~~ 123); - $self->assert_num_equals(1, $obj ~~ ['Exception::Base']); +## XXX This does not work anymore in 5.10.1, see perldelta/Smart match and overloading +# $self->assert_num_equals(1, $obj ~~ ['Exception::Base']); }; die "$@" if $@; }