Bring MANIFEST up to date. Add new thread tests.

p4raw-id: //depot/perl@265

diff --git a/MANIFEST b/MANIFEST
index 8f1537d..deb1303 100644 (file)
--- 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 (file)
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 (file)
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";
+}