dougm       00/03/31 10:19:48

  Modified:    lib/Apache Status.pm
  Log:
  another version fixup
  
  Revision  Changes    Path
  1.24      +2 -1      modperl/lib/Apache/Status.pm
  
  Index: Status.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/Status.pm,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -r1.23 -r1.24
  --- Status.pm 2000/03/03 20:42:02     1.23
  +++ Status.pm 2000/03/31 18:19:48     1.24
  @@ -85,11 +85,12 @@
       my $start = scalar localtime $^T;    
       my $srv = Apache::Constants::SERVER_VERSION();
       $r->send_http_header("text/html");
  +    my $v = $^V ? sprintf "v%vd", $^V : $];
       $r->print(<<"EOF");
   <html>
   <head><title>Apache::Status</title></head>
   <body>
  -Embedded Perl version <b>$]</b> for <b>$srv</b> process <b>$$</b>, 
  +Embedded Perl version <b>$v</b> for <b>$srv</b> process <b>$$</b>, 
   <br> running since $start<hr>
   EOF
   
  
  
  

Reply via email to