dougm 98/06/09 10:17:35
Modified: t/net/perl api.pl
Log:
work around problem under Solaris at least, according to Brian P Millett <bpm@ec-group.com>
Revision Changes Path
1.19 +9 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- api.pl 1998/06/05 02:08:23 1.18
+++ api.pl 1998/06/09 17:17:33 1.19
@@ -181,7 +181,15 @@
test ++$i, not $uri;
print $@ if $@;
-$r->exit;
+use Apache::test qw($USE_THREAD);
+if ($USE_THREAD) {
+ #under Solaris at least, according to Brian P Millett <bpm@ec-group.com>
+ warn "XXX: need to fix \$r->exit in t/net/api w/ threads\n";
+}
+else {
+ $r->exit;
+}
+
Modified: t/net/perl api.pl
Log:
work around problem under Solaris at least, according to Brian P Millett <bpm@ec-group.com>
Revision Changes Path
1.19 +9 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- api.pl 1998/06/05 02:08:23 1.18
+++ api.pl 1998/06/09 17:17:33 1.19
@@ -181,7 +181,15 @@
test ++$i, not $uri;
print $@ if $@;
-$r->exit;
+use Apache::test qw($USE_THREAD);
+if ($USE_THREAD) {
+ #under Solaris at least, according to Brian P Millett <bpm@ec-group.com>
+ warn "XXX: need to fix \$r->exit in t/net/api w/ threads\n";
+}
+else {
+ $r->exit;
+}
+