perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From apr...@apache.org
Subject svn commit: r882407 - /perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit/Core.pm
Date Fri, 20 Nov 2009 04:05:38 GMT
Author: aprime
Date: Fri Nov 20 04:05:37 2009
New Revision: 882407

URL: http://svn.apache.org/viewvc?rev=882407&view=rev
Log:
Fixed issue with solaris version numbers being treated as decimal numbers, not
dotted tuples.
Fixes RT #38084.

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

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit/Core.pm
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit/Core.pm?rev=882407&r1=882406&r2=882407&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit/Core.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit/Core.pm Fri Nov 20 04:05:37 2009
@@ -131,7 +131,9 @@
 }
 
 BEGIN {
-    if ($Config{'osname'} eq 'solaris' && $Config{'osvers'} >= 2.6 ) {
+    my ($major,$minor) = split(/\./, $Config{'osvers'});
+    if ($Config{'osname'} eq 'solaris' && 
+        (($major > 2) || ($major == 2 && $minor >= 6))) {
         *_platform_check_size   = \&_solaris_2_6_size_check;
         *_platform_getppid = \&_perl_getppid;
     }



Mime
View raw message