# [PATCH] gitweb: Time::HiRes is in core for Perl 5.8

3 messages from 2010-11-09 to 2010-11-11. Participants: Jakub Narebski, Junio C Hamano.
Thread: https://gitlist.dev/t/25689

## Jakub Narebski, 2010-11-09 18:27

Subject: [PATCH] gitweb: Time::HiRes is in core for Perl 5.8
Message-ID: <20101109182754.15256.996.stgit@localhost.localdomain>
URL: https://gitlist.dev/e/20101109182754.15256.996.stgit%40localhost.localdomain

```


Therefore there is no need to check if it is installed.  We can also
import gettimeofday and tv_interval.

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
---

 gitweb/gitweb.perl |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)


diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 5445159..0813479 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -17,12 +17,10 @@ use Encode;
 use Fcntl ':mode';
 use File::Find qw();
 use File::Basename qw(basename);
+use Time::HiRes qw(gettimeofday tv_interval);
 binmode STDOUT, ':utf8';
 
-our $t0;
-if (eval { require Time::HiRes; 1; }) {
-	$t0 = [Time::HiRes::gettimeofday()];
-}
+our $t0 = [ gettimeofday() ];
 our $number_of_git_cmds = 0;
 
 BEGIN {
@@ -1065,7 +1063,7 @@ sub dispatch {
 }
 
 sub reset_timer {
-	our $t0 = [Time::HiRes::gettimeofday()]
+	our $t0 = [ gettimeofday() ]
 		if defined $t0;
 	our $number_of_git_cmds = 0;
 }
@@ -3601,7 +3599,7 @@ sub git_footer_html {
 		print "<div id=\"generating_info\">\n";
 		print 'This page took '.
 		      '<span id="generating_time" class="time_span">'.
-		      Time::HiRes::tv_interval($t0, [Time::HiRes::gettimeofday()]).
+		      tv_interval($t0, [ gettimeofday() ]).
 		      ' seconds </span>'.
 		      ' and '.
 		      '<span id="generating_cmd">'.
@@ -5310,7 +5308,7 @@ sub git_blame_common {
 		print 'END';
 		if (defined $t0 && gitweb_check_feature('timed')) {
 			print ' '.
-			      Time::HiRes::tv_interval($t0, [Time::HiRes::gettimeofday()]).
+			      tv_interval($t0, [ gettimeofday() ]).
 			      ' '.$number_of_git_cmds;
 		}
 		print "\n";

```

## Junio C Hamano, 2010-11-11 17:12

Subject: Re: [PATCH] gitweb: Time::HiRes is in core for Perl 5.8
Message-ID: <7vwrojhjiz.fsf@alter.siamese.dyndns.org>
URL: https://gitlist.dev/e/7vwrojhjiz.fsf%40alter.siamese.dyndns.org
In-Reply-To: <20101109182754.15256.996.stgit@localhost.localdomain>

```
Jakub Narebski <jnareb@gmail.com> writes:

> Therefore there is no need to check if it is installed.  We can also
> import gettimeofday and tv_interval.
>
> Signed-off-by: Jakub Narebski <jnareb@gmail.com>

I think "... and 'use 5.008' is at the begining of the script already, "
is missing before that "Therefore".  But otherwise it is a reasonable
thing to do.

Thanks.

```

## Jakub Narebski, 2010-11-11 19:01

Subject: Re: [PATCH] gitweb: Time::HiRes is in core for Perl 5.8
Message-ID: <201011112001.50202.jnareb@gmail.com>
URL: https://gitlist.dev/e/201011112001.50202.jnareb%40gmail.com
In-Reply-To: <7vwrojhjiz.fsf@alter.siamese.dyndns.org>

```
Junio C Hamano wrote:
> Jakub Narebski <jnareb@gmail.com> writes:
> 
> > Therefore there is no need to check if it is installed.  We can also
> > import gettimeofday and tv_interval.
> >
> > Signed-off-by: Jakub Narebski <jnareb@gmail.com>
> 
> I think "... and 'use 5.008' is at the begining of the script already, "

because gitweb requires Perl 5.8, in order to have good Unicode support.

> is missing before that "Therefore".  But otherwise it is a reasonable
> thing to do.
> 
> Thanks.

Would you amend commit message when applying it, then?
-- 
Jakub Narebski
Poland

```