Author: stas
Date: Fri Dec 17 12:20:33 2004
New Revision: 122674

URL: http://svn.apache.org/viewcvs?view=rev&rev=122674
Log:
fix a warning in Apache::Status
Contributed by: John Williams <williams tni.com>

Modified:
   perl/modperl/trunk/Changes
   perl/modperl/trunk/lib/Apache/Status.pm

Modified: perl/modperl/trunk/Changes
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=122674&p1=perl/modperl/trunk/Changes&r1=122673&p2=perl/modperl/trunk/Changes&r2=122674
==============================================================================
--- perl/modperl/trunk/Changes  (original)
+++ perl/modperl/trunk/Changes  Fri Dec 17 12:20:33 2004
@@ -12,6 +12,8 @@
 
 =item 1.99_19-dev
 
+fix a warning in Apache::Status [John Williams <williams tni.com>]
+
 Ignore Apache-Test/META.yml in distribution tarballs until PAUSE
 is capable of handling multiple META.yml files in one distro [Gozer]
 

Modified: perl/modperl/trunk/lib/Apache/Status.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache/Status.pm?view=diff&rev=122674&p1=perl/modperl/trunk/lib/Apache/Status.pm&r1=122673&p2=perl/modperl/trunk/lib/Apache/Status.pm&r2=122674
==============================================================================
--- perl/modperl/trunk/lib/Apache/Status.pm     (original)
+++ perl/modperl/trunk/lib/Apache/Status.pm     Fri Dec 17 12:20:33 2004
@@ -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;

Reply via email to