diff options
Diffstat (limited to 'cpan/experimental/t/basic.t')
| -rw-r--r-- | cpan/experimental/t/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/experimental/t/basic.t b/cpan/experimental/t/basic.t index a270fdfd91..95f60db347 100644 --- a/cpan/experimental/t/basic.t +++ b/cpan/experimental/t/basic.t @@ -35,8 +35,8 @@ END if ($] >= 5.010001) { is (eval <<'END', 1, 'smartmatch compiles') or diag $@; use experimental 'smartmatch'; - sub bar { 1 }; - is(1 ~~ \&bar, 1, "is 1"); + { package Bar; use overload "~~" => sub { 1 }; } + is(1 ~~ bless({}, "Bar"), 1, "is 1"); 1; END } |