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:27:23 UTC
svn commit: r436715 -
/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
Author: pgollucci
Date: Fri Aug 25 01:27:22 2006
New Revision: 436715
URL: http://svn.apache.org/viewvc?rev=436715&view=rev
Log:
WIN32 check was overly complex, we know we're in mod_perl2, so we can just skip
WIN32 init
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=436715&r1=436714&r2=436715&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm Fri Aug 25 01:27:22 2006
@@ -126,8 +126,6 @@
}
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;
@@ -153,12 +151,12 @@
*_platform_check_size = \&_bsd_size_check;
*_platform_getppid = \&_perl_getppid;
}
- elsif (IS_WIN32i && $mod_perl::VERSION < 1.99) {
- _load('Win32::API');
-
- *_platform_check_size = \&_win32_size_check;
- *_platform_getppid = \&_perl_getppid;
- }
+# elsif (IS_WIN32i && $mod_perl::VERSION < 1.99) {
+# _load('Win32::API');
+#
+# *_platform_check_size = \&_win32_size_check;
+# *_platform_getppid = \&_perl_getppid;
+# }
else {
die "Apache::SizeLimit is not implemented on your platform.";
}