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
