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 };
     $r->send_http_header("text/plain");
     no strict 'refs';
     my($arg, $name) = (split "/", $r->uri)[-2,-1];

-D
-- 
You know, for kids.

Reply via email to