Mailing List Archive

dougm 98/06/11 15:13:38

Modified: t/net/perl test
Log:
Brian Millet reports this exit is also broken under _66/threads/solaris

Revision Changes Path
1.8 +8 -0 modperl/t/net/perl/test

Index: test
===================================================================
RCS file: /export/home/cvs/modperl/t/net/perl/test,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- test 1998/05/17 23:31:55 1.7
+++ test 1998/06/11 22:13:37 1.8
@@ -114,6 +114,14 @@
test_exit(); # unless $ENV{CONTENT_LENGTH};

sub test_exit {
+ if ($USE_THREAD) {
+ warn "XXX: need to fix exit in t/net/header.t w/ threads\n";
+ }
+ else {
+ exit;
+ die "shouldn't get this far!\n";
+ }
+
exit;
die "shouldn't get this far!\n";
}