summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/ext/POSIX/t/iscrash
blob: 94d04cb54e6c008ac52d4625dadedc71b222e7e7 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# test file for checking that the  is*() functions don't crash
use Win32API::File qw(SetErrorMode SEM_NOGPFAULTERRORBOX SEM_NOOPENFILEERRORBOX);
use strict;
use threads;
use POSIX qw(isalpha islower);

SetErrorMode(SEM_NOGPFAULTERRORBOX | SEM_NOOPENFILEERRORBOX);

use warnings; # we want the warnings code to run
$SIG{__WARN__} = sub {}; # but don't want to display them

my $t1 = threads->create(sub { isalpha("c") });
$t1->join;

islower("a");

my $t2 = threads->create(sub { isalpha("a") });
$t2->join;

print "ok\n";