Apache::Status bareword error

[prev] [thread] [next] [Date index for 2004/12/17]

mod_perl-2.0.0-RC1
perl-5.8.5 on linux (Fedora Core 3)

This test file:

  #!/usr/bin/perl
  use strict;
  use Apache::Status;
  1;

Gives this error:

Bareword "Apache::ServerUtil::server_root" not allowed while "strict subs" in use at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Apache/Status.pm line 710.

I suggest this patch to fix it:

--- lib/Apache/Status.pm        2004/12/17 18:55:53     1.1
+++ lib/Apache/Status.pm        2004/12/17 18:59:19
@@ -707,7 +707,7 @@

     untie *STDOUT;

-    my $dir = File::Spec->catfile(Apache::ServerUtil::server_root,
+    my $dir = File::Spec->catfile(Apache::ServerUtil::server_root(),
         ($r->dir_config("GraphDir") || "logs/b_graphs"));

     mkdir $dir, 0755 unless -d $dir;


~ John Williams



        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html