From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 18 Nov 1997 16:51:04 +0000 (+0000)
Subject: Bring MANIFEST up to date. Add new thread tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3487771ddbb6a6913db5c4e74398b9812ab6476b;p=p5sagit%2Fp5-mst-13.2.git

Bring MANIFEST up to date. Add new thread tests.

p4raw-id: //depot/perl@265
---

diff --git a/MANIFEST b/MANIFEST
index 8f1537d..deb1303 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -237,6 +237,7 @@ ext/attrs/attrs.pm	attrs extension Perl module
 ext/attrs/attrs.xs	attrs extension external subroutines
 ext/util/make_ext	Used by Makefile to execute extension Makefiles
 ext/util/mkbootstrap	Turns ext/*/*_BS into bootstrap info
+fakethr.h		Fake threads header
 form.h			Public declarations for the above
 global.sym		Symbols that need hiding when embedded
 globals.c		File to declare global symbols (for shared library)
@@ -349,7 +350,6 @@ lib/CPAN.pm		Interface to Comprehensive Perl Archive Network
 lib/CPAN/FirstTime.pm	Utility for creating CPAN config files
 lib/CPAN/Nox.pm		Runs CPAN while avoiding compiled extensions
 lib/Carp.pm		Error message base class
-lib/Class/Fields.pm	Set up object field names for pseudo-hash-using classes
 lib/Class/Struct.pm	Declare struct-like datatypes as Perl classes
 lib/Cwd.pm		Various cwd routines (getcwd, fastcwd, chdir)
 lib/Devel/SelfStubber.pm Generate stubs for SelfLoader.pm
@@ -388,7 +388,6 @@ lib/Getopt/Std.pm	Fetch command options (getopt, getopts)
 lib/I18N/Collate.pm	Routines to do strxfrm-based collation
 lib/IPC/Open2.pm	Open a two-ended pipe
 lib/IPC/Open3.pm	Open a three-ended pipe!
-lib/ISA.pm		Initialise @ISA at compile-time
 lib/Math/BigFloat.pm	An arbitrary precision floating-point arithmetic package
 lib/Math/BigInt.pm	An arbitrary precision integer arithmetic package
 lib/Math/Complex.pm	A Complex package
@@ -446,6 +445,7 @@ lib/dotsh.pl		Code to "dot" in a shell script
 lib/dumpvar.pl		A variable dumper
 lib/exceptions.pl	catch and throw routines
 lib/fastcwd.pl		a faster but more dangerous getcwd
+lib/fields.pm		Set up object field names for pseudo-hash-using classes
 lib/find.pl		A find emulator--used by find2perl
 lib/finddepth.pl	A depth-first find emulator--used by find2perl
 lib/flush.pl		Routines to do single flush
diff --git a/ext/Thread/die.t b/ext/Thread/die.t
new file mode 100644
index 0000000..6239405
--- /dev/null
+++ b/ext/Thread/die.t
@@ -0,0 +1,16 @@
+use Thread 'async';
+
+$t = async {
+    print "here\n";
+    die "success";
+    print "shouldn't get here\n";
+};
+
+sleep 1;
+print "joining...\n";
+eval { @r = $t->join; };
+if ($@) {
+    print "thread died with message: $@";
+} else {
+    print "thread failed to die successfully\n";
+}
diff --git a/ext/Thread/die2.t b/ext/Thread/die2.t
new file mode 100644
index 0000000..f6b6955
--- /dev/null
+++ b/ext/Thread/die2.t
@@ -0,0 +1,16 @@
+use Thread 'async';
+
+$t = async {
+    sleep 1;
+    print "here\n";
+    die "success if preceded by 'thread died...'";
+    print "shouldn't get here\n";
+};
+
+print "joining...\n";
+@r = eval { $t->join; };
+if ($@) {
+    print "thread died with message: $@";
+} else {
+    print "thread failed to die successfully\n";
+}