diff options
| author | Ben Walton <bwalton@artsci.utoronto.ca> | 2009-02-24 19:44:49 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2009-02-24 21:45:36 (GMT) |
| commit | e871784132038a500f3390859da3bbe95b9a0fc2 (patch) | |
| tree | f7d5ae64e133bd860809f64439f8da26500ed240 /git-svn.perl | |
| parent | d43c07b8ee6684a0df8636a0c849605f0ffc066f (diff) | |
| download | git-e871784132038a500f3390859da3bbe95b9a0fc2.zip git-e871784132038a500f3390859da3bbe95b9a0fc2.tar.gz git-e871784132038a500f3390859da3bbe95b9a0fc2.tar.bz2 | |
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>
Diffstat (limited to 'git-svn.perl')
| -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 d8476c8..d967594 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 { |