1use strict;
2use warnings;
3
4use Test::More tests => 1;
5
6use Carp;
7
8# test that enabling overload without loading overload.pm does not trigger infinite recursion
9
10no strict 'refs';
11my $p = "OverloadedInXS";
12*{$p."::(("} = sub{};
13*{$p.q!::(""!} = sub { Carp::cluck "<My Stringify>" };
14sub { Carp::longmess("longmess:") }->(bless {}, $p);
15ok(1);
16
17
18