Re: PATCH Apache::Status.pm

[Stas Bekman]

Dan Sully wrote:

This makes the syntax tree dump work for Apache::Status

--- lib/Apache/Status.pm.orig	Tue May 28 09:33:28 2002
+++ lib/Apache/Status.pm	Tue Sep 24 12:09:56 2002
@@ -345,6 +345,7 @@
 
 sub noh_b_terse {
 my $r = shift;
+return unless eval { require B::Terse };

Thanks Dan. Committed this and added two more similar fixes which solve 
the same problem in two other functions in that module.

__
Stas BekmanJAm_pH --> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

PATCH Apache::Status.pm

[Dan Sully]

This makes the syntax tree dump work for Apache::Status

--- lib/Apache/Status.pm.orig   Tue May 28 09:33:28 2002
+++ lib/Apache/Status.pmTue Sep 24 12:09:56 2002
@@ -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];

-D
-- 
You know, for kids.