chdir 't' if -d 't';
@INC = '../lib';
require './test.pl'; # for which_perl() etc
+ $| = 1;
}
use strict;
print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
exit 0;
}
- plan(4);
+ plan(5);
}
use threads;
do_sort_threads(2); # crashes
ok(1);
+
+# Change 24643 made the mistake of assuming that CvCONST can only be true on
+# XSUBs. Somehow it can also end up on perl subs.
+fresh_perl_is(<<'EOI', 'ok', { }, 'cloning constant subs');
+use constant x=>1;
+use threads;
+$SIG{__WARN__} = sub{};
+async sub {};
+print "ok";
+EOI