[LON-CAPA-cvs] cvs: loncom / startup.pl

[albertel]

albertel		Tue Sep 16 11:12:48 2003 EDT

  Modified files:              
    /loncom	startup.pl 
  Log:
  - mod_perl 2 detection
  
  
Index: loncom/startup.pl
diff -u loncom/startup.pl:1.14 loncom/startup.pl:1.15
--- loncom/startup.pl:1.14	Fri May 16 16:56:38 2003
+++ loncom/startup.pl	Tue Sep 16 11:12:48 2003
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 
-use Apache();
+if ($mod_perl::VERSION > 1.99) {
+    use Apache::compat();
+} else {
+    use Apache();
+}
 use lib '/home/httpd/lib/perl';
 #use lib '/usr/lib/perl5/site_perl/5.005/';
 use lib '/usr/lib/perl5/site_perl/5.6.0/i386-linux/';