You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2006/08/25 10:25:29 UTC
svn commit: r436714 -
/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
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;