This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
threads 1.71
[perl5.git]
/
ext
/
threads
/
t
/
basic.t
diff --git
a/ext/threads/t/basic.t
b/ext/threads/t/basic.t
index
727f16c
..
416d371
100755
(executable)
--- a/
ext/threads/t/basic.t
+++ b/
ext/threads/t/basic.t
@@
-8,7
+8,7
@@
BEGIN {
}
use Config;
if (! $Config{'useithreads'}) {
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # S
kip:
Perl not compiled with 'useithreads'\n");
+ print("1..0 # S
KIP
Perl not compiled with 'useithreads'\n");
exit(0);
}
}
exit(0);
}
}
@@
-165,4
+165,6
@@
$thr1 = threads->create(sub {});
ok(33, "$thr1" eq $thr1->tid(), 'Stringify');
$thr1->join();
ok(33, "$thr1" eq $thr1->tid(), 'Stringify');
$thr1->join();
+exit(0);
+
# EOF
# EOF