diff options
author | Ben Walton <bwalton@artsci.utoronto.ca> | 2009-02-24 14:44:49 -0500 |
---|---|---|
committer | Eric Wong <normalperson@yhbt.net> | 2009-02-24 13:45:36 -0800 |
commit | e871784132038a500f3390859da3bbe95b9a0fc2 (patch) | |
tree | f7d5ae64e133bd860809f64439f8da26500ed240 | |
parent | Merge git://git.bogomips.org/git-svn (diff) | |
download | tgif-e871784132038a500f3390859da3bbe95b9a0fc2.tar.xz |
git-svn fix to avoid using strftime %z
%z isn't available on all platforms in the date formatting
routines. Provide a workalike capability that should be
more portable.
Signed-off-by: Ben Walton <bwalton@artsci.utoronto.ca>
Acked-by: Eric Wong <normalperson@yhbt.net>
-rwxr-xr-x | git-svn.perl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/git-svn.perl b/git-svn.perl index d8476c81ee..d967594ee7 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -4630,6 +4630,7 @@ package Git::SVN::Log; use strict; use warnings; use POSIX qw/strftime/; +use Time::Local; use constant commit_log_separator => ('-' x 72) . "\n"; use vars qw/$TZ $limit $color $pager $non_recursive $verbose $oneline %rusers $show_commit $incremental/; @@ -4736,7 +4737,12 @@ sub run_pager { } sub format_svn_date { - return strftime("%Y-%m-%d %H:%M:%S %z (%a, %d %b %Y)", localtime(shift)); + # some systmes don't handle or mishandle %z, so be creative. + my $t = shift; + my $gm = timelocal(gmtime($t)); + my $sign = qw( + + - )[ $t <=> $gm ]; + my $gmoff = sprintf("%s%02d%02d", $sign, (gmtime(abs($t - $gm)))[2,1]); + return strftime("%Y-%m-%d %H:%M:%S $gmoff (%a, %d %b %Y)", localtime($t)); } sub parse_git_date { |