stas 2002/11/28 01:42:46
Modified: lib/Apache Status.pm
. Changes
Log:
Need to load B::Terse/TerseSize if it wasn't loaded yet in that child
before using it.
Submitted by: Dan Sully <[EMAIL PROTECTED]>
Reviewed by: stas
Revision Changes Path
1.28 +3 -0 modperl/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/Status.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- Status.pm 31 Jul 2002 02:10:15 -0000 1.27
+++ Status.pm 28 Nov 2002 09:42:45 -0000 1.28
@@ -345,6 +345,7 @@
sub noh_b_terse {
my $r = shift;
+ return unless eval { require B::Terse };
$r->send_http_header("text/plain");
no strict 'refs';
my($arg, $name) = (split "/", $r->uri)[-2,-1];
@@ -368,6 +369,7 @@
sub noh_b_terse_size {
my $r = shift;
+ return unless eval { require B::TerseSize };
$r->send_http_header("text/html");
$r->print('<pre>');
my($arg, $name) = (split "/", $r->uri)[-2,-1];
@@ -387,6 +389,7 @@
sub noh_b_package_size {
my($r, $q) = @_;
+ return unless eval { require B::TerseSize };
$r->send_http_header("text/html");
$r->print('<pre>');
no strict 'refs';
1.657 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.656
retrieving revision 1.657
diff -u -r1.656 -r1.657
--- Changes 13 Aug 2002 03:18:48 -0000 1.656
+++ Changes 28 Nov 2002 09:42:45 -0000 1.657
@@ -10,6 +10,9 @@
=item 1.27_01-dev
+Need to load B::Terse/TerseSize if it wasn't loaded yet in that child
+before using it. [Dan Sully <[EMAIL PROTECTED]>]
+
document the server_root_relative() method [Stas Bekman <[EMAIL PROTECTED]>]
eliminate warnings when flushing functions with empty () prototypes in