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