upgrade GCI from 3.43 to 3.45

[perl5.git] / lib / CGI / eg / nph-clock.cgi

diff --git a/lib/CGI/eg/nph-clock.cgi b/lib/CGI/eg/nph-clock.cgi
old mode 100644 (file)
new mode 100755 (executable)
index 55a2fbe..f34fde2
--- a/lib/CGI/eg/nph-clock.cgi
+++ b/lib/CGI/eg/nph-clock.cgi
@@ -5,7 +5,7 @@ use CGI::Push qw(:standard :html3);
 do_push(-next_page=>\&draw_time,-delay=>1);
 
 sub draw_time {
-    my $time = `/bin/date`;
+    my $time = localtime();
     return start_html('Tick Tock'),
            div({-align=>CENTER},
               h1('Virtual Clock'),