This one may be a bit dangerous. It is also one of many bugs
involving a segfault due to a C stack overflow.
set_up_inc( '../lib' );
}
-plan(tests => 215);
+plan(tests => 216);
package UTF8Toggle;
use strict;
my $p = substr $text, 0, 1;
is ($p, "\x{3075}");
}
+
+TODO: {
+ local $::TODO = 'RT #3054: Recursive operator overloading overflows the C stack';
+ fresh_perl_is(<<'EOP', "ok\n", {}, 'RT #3054: Recursive operator overloading should not crash the interpreter');
+ use overload '""' => sub { "$_[0]" };
+ print bless {}, __PACKAGE__;
+ print "ok\n";
+EOP
+}