Author: pgollucci
Date: Mon May 29 02:37:41 2006
New Revision: 410065
URL: http://svn.apache.org/viewvc?rev=410065&view=rev
Log:
Fix:
Use of uninitialized value in length at lib/Apache2/Status.pm line 554
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/lib/Apache2/Status.pm
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?rev=410065&r1=410064&r2=410065&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Mon May 29 02:37:41 2006
@@ -12,6 +12,12 @@
=item 2.0.3-dev
+Apache2::Status was expecting B::TerseSize to return
+an op count for things that it didn't causing
+requests like http://localhost/perl-status/main?noh_b_package_size
+to cause 405s
+[Philip M. Gollucci]
+
Updates for Win32 to allow building and testing on Apache/2.2:
- use httpd.exe as the Apache binary name when installing apxs
- use new apr library names (libapr-1.lib and libaprutil-1.lib)
Modified: perl/modperl/trunk/lib/Apache2/Status.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/Status.pm?rev=410065&r1=410064&r2=410065&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Mon May 29 02:37:41 2006
@@ -548,7 +548,8 @@
$_;
} (sort { $subs->{$b}->{size} <=> $subs->{$a}->{size} } keys %$subs);
- my $clen = length $subs->{$keys[0]}->{count};
+ my $clen = $subs->{$keys[0]}->{count} ?
+ length $subs->{$keys[0]}->{count} : 0;
my $slen = length $subs->{$keys[0]}->{size};
for my $name (@keys) {
