1# test file for checking that the is*() functions don't crash 2use Win32API::File qw(SetErrorMode SEM_NOGPFAULTERRORBOX SEM_NOOPENFILEERRORBOX); 3use strict; 4use threads; 5use POSIX qw(isalpha islower); 6 7SetErrorMode(SEM_NOGPFAULTERRORBOX | SEM_NOOPENFILEERRORBOX); 8 9use warnings; # we want the warnings code to run 10$SIG{__WARN__} = sub {}; # but don't want to display them 11 12my $t1 = threads->create(sub { isalpha("c") }); 13$t1->join; 14 15islower("a"); 16 17my $t2 = threads->create(sub { isalpha("a") }); 18$t2->join; 19 20print "ok\n"; 21