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

[pgollucci]

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.";
     }