svn commit: r436714 - /perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm

[pgollucci]

Author: pgollucci
Date: Fri Aug 25 01:25:29 2006
New Revision: 436714

URL: http://svn.apache.org/viewvc?rev=436714&view=rev
Log:
A2::SL doesn't work on windows because of threading


Modified:
    perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
URL: 
http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm?rev=436714&r1=436713&r2=436714&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm Fri Aug 25 01:25:29 
2006
@@ -126,6 +126,8 @@
 }
 
 BEGIN {
+    eval { require mod_perl2 };
+
     if ($Config{'osname'} eq 'solaris' && $Config{'osvers'} >= 2.6 ) {
         *_platform_check_size   = \&_solaris_2_6_size_check;
         *_platform_getppid = \&_perl_getppid;
@@ -151,7 +153,7 @@
         *_platform_check_size   = \&_bsd_size_check;
         *_platform_getppid = \&_perl_getppid;
     }
-    elsif (IS_WIN32) {
+    elsif (IS_WIN32i && $mod_perl::VERSION < 1.99) {
         _load('Win32::API');
 
         *_platform_check_size   = \&_win32_size_check;