dougm 01/06/18 22:26:41
Modified: t/docs startup.pl
Log:
DynaLoader needs to be required before XSLoader (pulled in by IO::File)
Revision Changes Path
1.41 +6 -6 modperl/t/docs/startup.pl
Index: startup.pl
===================================================================
RCS file: /home/cvs/modperl/t/docs/startup.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- startup.pl 2000/12/23 00:32:21 1.40
+++ startup.pl 2001/06/19 05:26:41 1.41
@@ -28,17 +28,17 @@
}; $@='' if $@;
}
-# BSD/OS 3.1 gets confused with some dynamically loaded code inside evals,
-# so make sure IO::File is loaded here, rather than later within an eval.
-# this should not harm any other platforms, since IO::File will be used
-# by them anyhow.
-use IO::File ();
-
use Apache ();
use Apache::Registry ();
unless ($INC{'Apache.pm'} =~ /blib/) {
die "Wrong Apache.pm loaded: $INC{'Apache.pm'}";
}
+
+# BSD/OS 3.1 gets confused with some dynamically loaded code inside evals,
+# so make sure IO::File is loaded here, rather than later within an eval.
+# this should not harm any other platforms, since IO::File will be used
+# by them anyhow.
+use IO::File ();
Apache::Constants->export(qw(HTTP_MULTIPLE_CHOICES));
